Вариант 03 задание 3

В текстовом файле содержится последовательность действительных чисел. Найти максимальное из чисел, имеющих нечетные порядковые номера. Результат дописать в конец исходного файла. Имя файла вводится с клавиатуры.

//Вот тут начало программы.

program Proga3;

{$APPTYPE CONSOLE}
var
MyFile: String; // Переменная для хранения имени файла
MyTextFile: Text; // Переменная типа файл...для нашего содержимого
NUM : Real; // Переменная для хранения чисел из файла
MaxNUM: Real; //переменная которая хранит наименьшее число
i: integer;

begin
i:=0;
Writeln('Input file name ');
Readln(MyFile); //Ждём ввода имени файла откуда будем читать
Assign(MyTextFile, MyFile); //определяем наш файл как файл

Reset(MyTextFile); //открываем его...курсор на первой позиции
Read(MyTextFile, MaxNUM);

Close(MyTextFile); //Закрываем файл и снова открываем, чтобы
Reset(MyTextFile); //поставить курсор на первую позицию
While not EOF (MyTextFile) do
Begin

Read(MyTextFile, NUM); //читаем значение из файла в NUM

i:=i+1;
if odd(i) then //если порядковый номер нечётный - то
begin

if NUM>MaxNUM then
MaxNUM:=NUM;

end;
end;

close(MyTextFile); //закрыли файл
Append (MyTextFile); //открыли для добвления в файл...курсор на последней позиции
Write ( MyTextFile, ' Result: ' ,MaxNUM:6:3 ); //записали минимальное значение в конец файла
Writeln;
Writeln ('Resultat: ' ,MaxNUM:6:3 ); //вывели на экран то же значение

close(MyTextFile); //закрыли файл
Writeln;
Writeln ('Press Enter to Exit'); //ждём нажатия Enter для завершения
Readln;
end.

//Вот тут конец программы.