Ввести файл F действительных чисел.

uses crt;
var f:file of real;
    a,mn,mx,sr:real;
    i,imn,imx,k:integer;
begin
clrscr;
assign(f,'file');
rewrite(f);
writeln('Введите в файл действительные числа, окончание ввода 0:');
repeat
readln(a);
write(f,a);
until a=0;
writeln('Содержание исходного файла:');
reset(f);
read(f,mn);{читаем первое число}
write(mn:0:2,' ');{выводим}
mx:=mn;{пока оно и макс и мин.}
imn:=0;{индекс минимального}
imx:=0;{индекс максимаоьного}
sr:=0;{среднее положительных}
k:=0;{их количество}
if mn>0 then
 begin
  sr:=mn;
  k:=1;
 end;
for i:=1 to filesize(f)-1 do{читаем файл со второго компонента(индекс=1)}
 begin
  read(f,a);
  write(a:0:2,' ');
  if a<mn then
   begin
    mn:=a;
    imn:=i;
   end;
  if a>mx then
   begin
    mx:=a;
    imx:=i;
   end;
  if a>0 then
   begin
    k:=k+1;
    sr:=sr+a;
   end;
 end;
if k>0 then sr:=sr/k;{если есть положительные, считаем среднее}
close(f);
writeln;
writeln('Максимальный элемент=',mx:0:2,' его индекс=',imx);
writeln('Минимальный элемент =',mn:0:2,' его индекс=',imn);
if k=0 then writeln('Ф файле нет положительных компонент, преобразование невозможно')
else
 begin
  writeln('Среднее арифметическое положительных=',sr:0:2);
  reset(f);
  seek(f,imn);
  write(f,sr);{меняем минимальный}
  seek(f,imx);
  write(f,sr);{максимальный}
  close(f);
  writeln('Преобразованный файл:');
  reset(f);
  while not eof(f) do
   begin
    read(f,a);
    write(a:0:2,' ');
   end;
  close(f);
 end;
readln
end.