Поменять наименьшее и наибольшее числа местами

uses crt;
const n=20;
var a: array [1..n] of integer;
    i,imax,imin: byte;
    t: text;
    buf: integer;
begin
assign(t,'C:\out.txt');
imax:=1; imin:=1;
writeln('Дан массив');
for i:=1 to n do
    begin
    a[i]:=random(100);
    write(a[i],' ');
    if a[i]>a[imax] then imax:=i;
    if a[i]<a[imin] then imin:=i;
    end;
writeln;
writeln('Мин.  элемент ',a[imin],' под индексом ',imin);
writeln('Макс. элемент ',a[imax],' под индексом ',imax);
buf:=a[imax];
a[imax]:=a[imin];
a[imin]:=buf;
rewrite(t);
writeln('Новый массив занесен в файл');
for i:=1 to n do
    begin
    write(a[i],' ');
    write(t,a[i],' ');
    end;
close(t);
end.

uses crt;
 
var
  a: array [1..1000] of integer;
  n, i, imax, imin: byte;
  t: text;
  buf: integer;
 
begin
  assign(t, 'out.txt');
  reset(t);
  imax := 1;
  imin := 1;
  i := 0;
  writeln('Дан файл: ');
  while not eof(t) do
  begin
    inc(i);
    read(t, a[i]);
    write(a[i]:4);
    if a[i] > a[imax] then 
      imax := i;
    if a[i] < a[imin] then 
      imin := i;
  end;
  n := i;
  close(t);
  writeln;
  writeln('Мин.  элемент ', a[imin], ' под индексом ', imin);
  writeln('Макс. элемент ', a[imax], ' под индексом ', imax);
  buf := a[imax];
  a[imax] := a[imin];
  a[imin] := buf;
  rewrite(t);
  writeln('Новый массив занесен в файл');
  for i := 1 to n do
  begin
    write(a[i], ' ');
    write(t, a[i], ' ');
  end;
  close(t);
end.