Дан файл целых чисел. Поменять местами наибольший и наименьший элементы

const
  nMax = 5;//количество чисел в файле
 
var
  m: array[1..nMax] of integer;
  i, max, min, tmp: integer;
  f1, f2: textfile;
 
begin
  assignfile(f1, 'input.txt');
  reset(f1);
  i := 1;
  min := 1;
  max := 1;
  while not seekeof(f1) do
  begin
    read(f1, m[i]);
    inc(i);
  end;
  closefile(f1);
  
  for i := 1 to nMax do
  begin
    if m[i] > m[max] then
      max := i;
    if m[i] < m[min] then
      min := i;
  end;
  tmp := m[max];
  m[max] := m[min];
  m[min] := tmp;
  
  assignfile(f2, 'output.txt');
  rewrite(f2);  
  for i := 1 to nMax do
    write(f2, m[i], ' ');
  closefile(f2);
end.

const
  nn = 10;
 
var
  f: file of integer;
  a: array [1..10] of integer;
  max, min: integer;
 
begin
  assign(f, '123');
  rewrite(f);
  for var i := 1 to nn do
    write(f, random(-10, 10));
  close(f);
  reset(f);
  writeln('Содержимое файла:');
  for var i := 1 to nn do
  begin
    var n: integer;
    read(f, n);
    a[i] := n;
    write(n, ' ');
  end;
  max := 1;
  min := 1;
  for var i := 2 to nn do
    if a[i] > a[max] then max := i
    else if a[i] < a[min] then min := i;
  var temp := a[max];
  a[max] := a[min];
  a[min] := temp;
  close(f);
  rewrite(f);
  for var i := 1 to nn do
    write(f, a[i]);
  close(f);
  reset(f);
  writeln(#13#10, 'Новое содержимое файла:');
  for var i := 1 to nn do
  begin
    var n: integer;
    read(f, n);
    write(n, ' ');
  end;
  close(f);
end.