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

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.