С клавиатуры вводится число n-количество элементов последовательности, а затем последовательность из n различных целых чисел! Поменяйте максимальный и минимальный элементы массива местами — Pascal(Паскаль)

program ni;
var
a,b:array[1..100]of real;
min, max,cop:real;
i,j,k,n:integer;
begin
writeln('vvedite razmer massiva');
write('n=');
read(n);
for i:=1 to n do begin
write('a[',i,']=');
read(a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to n do
if a[i]>max then
begin
max:=a[i];
j:=i;
end;
for i:=1 to n do
if a[i]<min then
begin
min:=a[i];
k:=i;
end;
 
cop:=a[j];
a[j]:=a[k];
a[k]:=cop;
 
 
writeln('max=',max);
writeln('min=',min);
writeln('poluchennyi massiv:') ;
for i:=1 to n do
write('a[',i,']=', a[i], ' ');
end.