Найти наибольший и наименьший элементы массива и поменять их местами

const WG=100;
type tmasl=array[1..WG] of longint;
 
var a:tmasl; n,pos_max,pos_min:byte;cop:integer;
(*ïðîöåäóðà ââîäà*)
procedure pr_wod(var n:byte; var mas:tmasl);
var i,kl:byte;
begin
   writeln('ðàçìåðíîñòü ìàññèâà');
   readln(n);
   (*êîíòðîëü çíà÷åíèÿ ïåðåìåííîé*)
   while n>WG do
   begin
     writeln('íåâåðíî ââ¸ë ïîïðîáóé åù¸ ðàç');
     readln(n);
   end;
     writeln('1-ââîä ñëó÷àéíûì îáðàçîì; 2-ââîä ñ êëàâèàòóðû');
     readln(kl);
     if kl=1 then randomize;
     for i:=1 to n do
     case  kl of
     1:mas[i]:=random(1000);
     2:begin
         writeln('ââåäè ',i,' ýëåìåíò ìàññèâà');
         readln(mas[i]);
       end;
     end;
end;
(*ïðîöåäóðà âûâîäà*)
procedure pr_out(n:byte; mas:tmasl);
var i:byte;
begin
  writeln('ìàññèâ');
  for i:=1 to n do
  write(mas[i]:6);
  writeln;
end;
(*ôóíêöèÿ íàõîæäíåíèÿ ìàêñèìàëüíîãî è ìèíèìàëüíîãî ÷èñëà: 1-ìàêñèìàëüíîå; (-1)-ìèíèìàëüíîå*)
function f_min_max(kl:integer; n:byte; mas:tmasl):longint;
var i,mm:longint; nom1:byte;
begin
    mm:=mas[1];nom1:=1;
    for i:=2 to n do
    if kl*mas[i]>kl*mm then begin mm:=mas[i];nom1:=i end;
    f_min_max:=nom1;
end;
begin
   pr_wod(n,a);
   pr_out(n,a);
   pos_max:=f_min_max(1,n,a);
   pos_min:=f_min_max(-1,n,a);
   cop:=a[pos_max];
   a[pos_max]:=a[pos_min];
   a[pos_min]:=cop;
   pr_out(n,a);
end.

var
a,b:array[1..100]of real;
min, max: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;
for i:=1 to n do begin
if i=j then b[i]:=min
else if i=k then b[i]:=max
else b[i]:=a[i];
end;
 
writeln('max=',max);
writeln('min=',min);
writeln('poluchennyi massiv:') ;
for i:=1 to n do
write('b[',i,']=', b[i],  '  ');
end.

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;
 
[COLOR="Red"]
cop:=a[j];
a[j]:=a[k];
a[k]:=cop;
[/COLOR]
 
writeln('max=',max);
writeln('min=',min);
writeln('poluchennyi massiv:') ;
for i:=1 to n do
write('a[',i,']=', a[i], ' ');//здесь
end.