Поменять местами наибольший элемент одномерного массива с наименьшим

uses crt;
const N=16;
var arr:array[1..N] of integer;
    i,p,min,max:integer;
begin
for i:=1 to N do
 begin
 arr[i]:=random(20);
 write(arr[i],' ');
 end;
min:=20;
for i:=1 to N do
 begin
 if arr[i]>max then max:=arr[i];
 if arr[i]<min then min:=arr[i];
 end;
for i:=1 to N do
 begin
 if arr[i]=max then
  begin
  arr[i]:=min;
  p:=i;
  end;
 if (arr[i]=min) and (p<>i) then arr[i]:=max;
 end;
writeln();
writeln('Максимальный: ',max);
writeln('Минимальный: ',min);
for i:=1 to N do
 write(arr[i],' ');
end.

const
N=16;
var a:array[1..N] of integer;
max,min,i,m,j:integer;
begin
 
 For i:=1 to N do
 read(a[i]);
 
 max:=a[1];
 min:=a[1];
 m:=1;
 j:=1;
 
 For i:=1 to N do
  if a[i]<min then begin
                     min:=a[i];
                     j:=i;
                     end;
                     
  For i:=1 to N do
  if a[i]>max then begin
                     max:=a[i];
                     m:=i;
                     end;
                     
  i:=a[m];
  a[m]:=a[j];
  a[j]:=i;
  
  For i:=1 to N do
  write(a[i]:2);
  
  end.

const n = 16;
var a: array[1..n] of integer;
    max, min, i: integer;
begin
  randomize;
  max := 1;
  min := 1;
  writeln('Source array:');
  for i:=1 to n do
    begin
      a[i] := random(199) - 99;
      write(a[i]:4);
      if a[i] < a[min] then min := i;
      if a[i] > a[max] then max := i
    end;
  writeln;
  i := a[min];
  a[min] := a[max];
  a[max] := i;
  writeln('min <-> max :');
  for i := 1 to n do write(a[i]:4);
  readln
end.