{* Задача 68 *}

Unit ZADACH68;
Interface
Implementation
Begin
 writeln('Задать файл, компоненты которого являются действительными числами. Найти наибольшее из значений компонент этого файла с нечётными номерами. ');
End.

Program pas0;

Uses zadach68.pas; {* Эту строку можно удалить *}
Uses Crt; {* Вызов внешних функций *}
Const {* Константы *}
  LenReal = 6;
Var {* Объявление переменных *}
  F        : File Of real;
  i        : word;
  Code     : word;
  Number   : real;
  Max      : real;
  InStr    : String;
  FileName : String;
  LenFile  : word;
  Nechet   : boolean;
Begin
  clrscr; {имя файла задаем в командной строке}
  If ParamCountMax) Then
    Max := Number;
  Nechet := Not Nechet;
End;
  writeln(Max);
  close(F); {* Файл F будет закрыт *}
Repeat
  Until keypressed; {* После нажатия любой клавиши цикл остановится *}
  End....