Дана целочисленная квадратная матрица. Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали — Pascal(Паскаль)

program zada4i;
var a:array [1..10,1..10] of integer;
    i,j,k,x,max:integer;
begin
    x:=1;
    writeln ('***************************');
    for i:=1 to 10 do
        for j:=1 to 10 do
            a[i,j]:=random(100)-50;
    for i:=1 to 10 do begin
        writeln;
        for j:=1 to 10 do write (a[i,j]:4);
    end;
    writeln;
    writeln ('==============');
    for i:=1 to 10 do begin
        max:=1;
        for j:=2 to 10 do
            if (a[i,max]<a[i,j]) then max:=j;
        k:=a[i,max];  a[i,max]:=a[i,x]; a[i,x]:=k;
        x:=x+1;
    end;
    for i:=1 to 10 do begin
        writeln;
        for j:=1 to 10 do write (a[i,j]:4);
    end;
    readln;
end.