Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали

uses
  crt;
const
  n=3;{ïîðÿäîê ìàòðèöû}
var
  a:array [1..n,1..n] of integer;
  i,j,max,temp,posmax:integer;
begin
  clrscr;
  {çàïîëíÿåì è âûûâîäèì}
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  {îïðåäåëÿåì max ýëåìåíòû}
  for i:=1 to n do
  begin
    max:=a[i,1];
    posmax:=1;
    for j:=2 to n do
      if a[i,j]>max then
      begin
        max:=a[i,j];
        posmax:=j;
      end;
    a[i,posmax]:=a[i,i];
    a[i,i]:=max
  end;
  {âûûâîäèì}
  writeln('Ïîëó÷åííàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:2,' ');
    writeln
  end;
end.