В заданной последовательности поменять местами максимальный и минимальный члены

[amegi]

Задание было: В текстовом файле содержится последовательность действительных чисел. В заданной последовательности поменять местами максимальный и минимальный члены. Измененную последовательность переписать в результирующий файл. Имена исходного и результирующего файлов вводятся с клавиатуры.
Что у меня вышло:

program zadacha3;
uses crt;
var f:file of real;
i, nmax, nmin :integer;
a:array[0..10] of real;
max,min:real;
begin
clrscr;
assign(f,'1.txt');
reset(f);
for i:=0 to filesize(f)-1 do
begin
read(f,a[i]);
write(a[i]:1:2,' ');
end;
max:=a[0]; nmax:=0;
min:=a[0]; nmin:=0;
for i:=1 to filesize(f)-1 do
begin
if a[i]>max then
begin
max:=a[i];
nmax:=i
end;
if a[i]<min then
begin
min:=a[i];
nmin:=i
end;
end;
seek(f,nmax);
write(f,min);
seek(f,nmin);
write(f,max);
close(f);
rename(f,'2.txt');
readln;
end.

в конце показывает мне нули, да к тому же не могу реализовать ввод имени конечного файла с клавиатуры, пробывал сделать такой элемент:
Код Pascal

close(f);
writeln (s, 'vvod s.txt');
rename(f,'s');
readln;
end.

не получилось, не говоря уже про ввод имени с клавиатуры исходного файла.

Помоги пожалуйста исправить мои ошибки

[GetMax]

В текстовом файле

Сказано же в текстовом файле. Зачем было типизированный файл использовать

var
  f:Text;
  Ishod_Name:string[90];
  Rezul_Name:String[90];
  i, nmax, nmin,kol :integer;
  a:array[0..10] of Integer;
  max,min,n,buf:Integer;
begin
  Write('Vvedite imya ishodnogo fayla:');
  Readln(Ishod_Name);
  Writeln;
  Write('Vvedite imya vihodnogo fayla: ');
  Readln(Rezul_Name);
  assign(f,Ishod_Name);
  reset(f);
  i:=0;
  While Not EOF(F) do
  begin
    Inc(i);
    read(f,n);
    A[i]:=n;
    write(a[i]:3);
  end;
  Close(F);
  Writeln;
  Writeln;
  Kol:=i;
  Max:=Low(Integer);
  Min:=High(Integer);
  For i:=1 to Kol do
  Begin
    If A[i] > Max then
    Begin
      Max:=A[i];
      nmax:=i
    End;
    If A[i] < Min then
    Begin
      Min:=A[i];
      nmin:=i
    end;
  End;
  Buf:=A[nmax];
  A[nmax]:=A[nmin];
  A[nmin]:=Buf;
  For i:=1 to Kol do
  Write(A[i]:3);
  assign(f,Rezul_Name);
  Rewrite(f);
  For i:=1 to Kol do
  Begin
    Write(F,A[i],' ')
  End;
  Close(F);
  readln
End.

[Stilet]

С потолка по твоему коду:

program zadacha3;
uses crt;
var f1,f2:file of real;
i, max, min :integer;q,w:string;
a:array[1..10] of real;r:real;
begin
 clrscr;
 write('Входной файл ');  Readln(q); assign(f,q);  reset(f);
 write('Выходной файл ');Readln(q); assign(f2,w);rewrite(f2);
 max:=1;Min:=1;
 While Not Eof(f2) do begin
  read(f,a[i]);write(a[i]:1:2,' ');
  if a[i]<a[min] then min:=i;
  if a[i]>a[max] then max:=i;
 end;
r:=a[min];a[min]:=a[max];a[max]:=r;
close(f);
for i:=1 to 10 do write(f2,a[i]);close(f2);
readln;
end.

Не проверял.