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.