В текстовом файле, содержащем данные типа real,
поменять местами максимальный и минимальный элементы(Паскаль)

//Боль//Pascal ABC.NET 3.1 сборка 1219Var f:text; max,min,p:real; maxn,minn,n,i:integer; ar:array of real; s:string;beginmax:=real.MinValue;min:=real.MaxValue;n:=0; assign(f,'text.txt'); reset(f); while not(Eof(f)) do  begin   read(f,p);   inc(n);   setlength(ar,n);   ar[n-1]:=p;   if ar[n-1]>max then    begin     max:=ar[n-1];     maxn:=n-1;    end;   if ar[n-1]<min then    begin     min:=ar[n-1];     minn:=n-1;    end;  end; close(f);swap(ar[minn],ar[maxn]);for i:=0 to n-1 doif i<>n-1 then s:=s+floattostr(ar[i])+' 'elses:=s+floattostr(ar[i]);rewrite(f);write(f,s);close(f);end.Пример содержимого text.txt:0 -2.1 1.1Пример содержимого text.txt после работы программы:0 1.1 -2.1