Помогите! Дан массив из n случайных чисел (числа вводятся с клавиатуры). Поменять местами максимальные и минемальные элементы массива

Паскаль?

const n =;

var a:array [1 ... n] of integer;

i, i_max, i_min: byte; max, min, x:integer;

begin

writeln (' Введите элементы массива через пробел') ;

for i:=1 to n do

read (a[i]) ;

max:=0; min:=1000;

i_max:=0; i_min:=0;

for i:=1 to n do

begin

if a[i]>max then begin max:=a[i]; i_max:=i; end;

if a[i]
end;

x:=max;

a[i_max]:=min;

a[i_min]:=x;

for i:=1 to n do

write (a[i],' ') ;

readln;

end.