Записать в файл F2 компоненты файла F1 в обратном порядке

var f1, f2: file of real;
    max, max2, t: real;
    i, n: longword;
begin
  repeat
    write('Введите количество компонент: ');
    readln(n)
  until n > 0;
  dec(n);
  assign(f1, 'f1.dat');
  rewrite(f1);
  writeln('Введите компоненты файла:');
  for i := 0 to n do
    begin
      write(i, ': ');
      readln(t);
      write(f1, t)
    end;
  assign(f2, 'f2.dat');
  rewrite(f2);
  max := t;
  for i := n to 0 do
    begin
      seek(f1, i);
      read(f1, t);
      write(f2, t);
      if t > max then max := t
    end;
  max2 := max * max;
  reset(f1);
  writeln('Содержимое файла F1');
  for i := 0 to n do
    begin
      read(f1, t);
      write(' ', t:15)
    end;
  writeln;
  reset(f2);
  writeln('Содержимое файла F2');
  for i := 0 to n do
    begin
      read(f2, t);
      write(' ', t:15)
    end;
  writeln;
  reset(f1);
  reset(f2);
  for i := 0 to n do
    begin
      read(f1, t);
      if t = max
        then begin
          seek(f1, i);
          write(f1, max2)
        end;
      read(f2, t);
      if t = max
        then begin
          seek(f2, i);
          write(f2, max2)
        end
    end;
  reset(f1);
  writeln('Содержимое файла F1 после преобразования');
  for i := 0 to n do
    begin
      read(f1, t);
      write(' ', t:15)
    end;
  writeln;
  reset(f2);
  writeln('Содержимое файла F2 после преобразования');
  for i := 0 to n do
    begin
      read(f2, t);
      write(' ', t:15)
    end;
  writeln;
  close(f1);
  close(f2);
  write('Нажмите <Enter> для выхода из программы');
  readln
end.