Поменять местами максимальный элемент и первый элемент массива — Pascal(Паскаль)

uses crt;
var a : array [1..10] of integer;
    i,j,max,n,k : integer;
begin
 clrscr;
 randomize;
 write('n = ');
 readln(n);
 for i := 1 to n do
  begin
   a[i] := random(20);
   write(a[i]:3);
  end;
 max := a[1];
 j := 1;
 for i := 2 to n do
  if (max < a[i]) then
   begin
    max := a[i];
    j := i;
   end;
 writeln;
 writeln(' Massiv - 1');
 k := a[j];
 a[j] := a[1];
 a[1] := k;
 for i := 1 to n do
  write(a[i]:3);
 readln;
end.