Informatika (2 семестр) / 2 аттестация / 4-я задача (минимум и максимум)

program mimmax;
uses crt;
var f1:file of real; {файл f1 вещественного типа }
a,max,min:real;      {переменные вещественного типа,для использлования нахождения max,min}
begin
assign(f1,'G:\pr\практика.txt');  {отождествление файла и файловой переменной}
rewrite(f1);   {создание файла}
write(f1,2);
write(f1,1.5); {запись чисел в файл}
write(f1,0);
write(f1,-4.6);
write(f1,10);
close(f1);
reset(f1);                     {открыть файл для чтения с начала}
read(f1,max);                {прочитать очередной элемент файла}
write(max,' ');               {вывести на экран значение переменной}
min:=max;
while not eof(f1) do          {цикл пока конец файла не достигнут выполнять}
 begin
     read(f1,a);
     write(a,' ');
 if a>max then
         max:=a
else
if a<min then
        min:=a;
 end;
close(f1);
writeln;
writeln('Максимальный элемент = ',max);
writeln('Минимальный элемент = ',min);
end.