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

program sredn;
uses crt;
var f1:file of real;              {дан файл вещественных чисел}
a, sr , n:real;                   {переменные вещественного типа,для вычисления среднего арифметического этих чисел}
begin
assign(f1,'E:\pr\pascal\9.txt');  {отождествление файла и файловой системы}
rewrite(f1);                      {создание файла}
write(f1,2.5);                      {запись чисел в файл}
write(f1,1.5);
write(f1,0);
write(f1,1.5);
write(f1,10);
close(f1);
reset(f1);                        {открыть файл для чтения с начала}
sr:=0;
n:=0;
while not eof(f1) do              {цикл пока конец файла не достигнут выполнять}
 begin
  read(f1,a);
  write(a:0:2,' ');
  n:=n+1;                         {счетчик}
  sr:=sr+a;
 end;                             {конец цикла}
writeln;
close(f1);                        {закрыть файл}
write('Среднее арифметическое=',sr/n:0:2);
end.