Написать программу нахождение двух максимальных элементов в массиве и двух минимальных — Pascal(Паскаль)

массив 1 6 8 3 9
Результат
Максимальный 
8 и 9
Минимальный
1 и 3

program pr1;
var min1,min2,max1,max2,n,i:byte; a:array[1..50] of integer;pr:boolean;
begin
  readln(n);
  for i:=1 to n do
  begin a[i]:=random(100);write(a[i]:5);end;
  writeln;
  pr:=true;
  while pr do
  begin
     pr:=false;
     for i:=1 to n-1 do
     if a[i]>a[i+1] then begin
        a[i]:=a[i]+a[i+1];
        a[i+1]:=a[i]-a[i+1];
        a[i]:=a[i]-a[i+1];
        pr:=true;
                         end;
  end;
  for i:=1 to n do
  write(a[i]:5);
  writeln;
  pr:=true;
  for i:=1 to n-1 do
  if a[1]<>a[i] then begin pr:=false;writeln(a[1],' ,',a[i]);break;end;
  if pr then writeln(a[1],',',a[2]);
  pr:=true;
  for i:=n-1 downto 1 do
  if a[i]<>a[n] then begin pr:=false;writeln(a[n],' ,',a[i]);break;end;
  if pr then writeln(a[n],',',a[n-1]);
end.