дан массив из N целых чисел. определить и вывести три его наибольших значения. например 2 3 4 1 2 8 -5 4-> 8,4,3

Program sashka9595;
uses crt;
const n=20;
var
  a:array[1..n] of integer;
  max,i,j,k: integer;
begin
  writeln(*** alphaues is thinking... ***);
  writeln(***          OK             ***);
  randomize;
  writeln(Массив: );
  for i:=1 to n do
    begin
      a[i]:=random(100)-50;
      write(a[i],  );
    end;
  for i:=1 to 3 do
    begin
      k:=i;
      max:=a[i];
      for j:=i+1 to n do
        if a[j]>max then
          begin
            max:=a[j];
            k:=j;
          end;
      a[k]:=a[i];
      a[i]:=max;
    end;
  writeln();
  writeln(Три наибольших элемента массива:);
  for i:=1 to 3 do
    writeln(i,-й: ,a[i]);
end.