Найти максимальный и минимальный элементы и поменять их местами.помогите

uses crt;
const max=100;
var a:array[1..max] of integer;
n,i,imn,imx:byte;
x:integer;
begin
clrscr;
randomize;
repeat
write(Размер массива n: );
readln(n);
until n in [1..max];
writeln(Исходный массив: );
for i:=1 to n do
begin
a[i]:=random(20)+1;
write(a[i], );
end;
imn:=1;
imx:=1;
for i:=1 to n do
begin
if a[i] if a[i]>a[imx] then imx:=i;
end;
writeln(Минимальный элемент: ,a[imn], Его индекс: ,imn);
writeln(Максимальный элемент: ,a[imx], Его индекс: ,imx);
x:=a[imn];
a[imn]:=a[imx];a[imx]:=x;
writeln(Обмне максимального и минимального: );
for i:=1 to n do
write(a[i], );
end.