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

Program lab6;
type MS=array[1..100,1..100] of integer;
Procedure VD1 ( n:integer; var mas:MS);
var
i,j:integer;
begin
  Write ('Введите размерность квадратной матрицы: ');
  readln(n);
  Writeln('Вот наша матрица: ');
  For i:=1 to n do
    begin
    For j:=1 to n do
      begin
        mas[i,j]:=random(30)-random(30);
        Write(mas[i,j]:4);
      end;
    Writeln;
    end;
end;
Procedure VD2 ( n:integer; var mas:MS);
var
i,j:integer;
begin
  For i:=1 to n do
    begin
      For j:=1 to n do
        Write(mas[i,j]:4);
    end;
    Writeln;
end;
Procedure Zamen ( n:integer; var mas:MS);
var
i,j,smen,stolb,bol:integer;
begin
  for i:=1 to n do
    begin
      bol:=mas[i,j];
      for j:=1 to n do 
        begin
          if bol<mas[i,j] then
            begin
              bol:=mas[i,j];
              stolb:=j;
            end;
          readln(mas[i,j]);
        end;
      Writeln;
      smen:=bol;
      bol:=mas[i,i];
      mas[i,i]:=smen;
     end;
end;
var
x:integer;
a,b:MS;
begin
  VD1(x,a);
  Writeln('Сделаем замены');
  Zamen(x,a);
  Writeln('Вот новая матрица: ');
  VD2(x,a);
  readln;
end.