Дан массив целых чисел a1,…,an. Найти минимальный и максимальный элементы массива и поменять их местами — Pascal(Паскаль)

program ggg;
uses
 crt;
const
 n=10;
var
 i,imax,imin,k:integer;
 a:array[1..n] of integer;
begin
clrscr;
randomize;
imax:=1;
imin:=1;
for i:=1 to n do
begin
 a[i]:=random(20);
 write(a[i],' ');
  if a[imax]<a[i] then
  begin
   imax:=i;
  end;
  if a[imin]>a[i] then
  begin
   imin:=i;
  end;
end;
writeln;
writeln('max=',a[imax]);
writeln('min=',a[imin]);
k:=a[imax];
a[imax]:=a[imin];
a[imin]:=k;
writeln;
for i:=1 to n do
begin
 write(a[i],' ');
end;
readln;
end.