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

uses crt;
var m:array[1..10,1..10] of integer;a,b,i,y,j,k:integer;
z:array[1..10,1..10] of integer;
max:array[1..10] of integer;
x:array[1..10] of integer;
begin
clrscr;
writeln('Задана Целочислительная квадратная матрица найти в каждой строке наибольший элемент и поменять его местами с элементом на главной диаганали. Создать новую матрицу в которой элементы зеркально поменять местами относительно главной диагонали.');
write('‚Введите количество столбцов и строк - ');read (a);
b:=a;
for i:=1 to a do
for j:=1 to b do
begin
gotoxy (j*6,i+5);
read (m[j,i]);
end;
for i:=1 to a do
for j:=1 to b do
z[j,i]:=m[j,i];
for i:=1 to a do
begin
max[i]:=z[1,i];
x[i]:=1;
for j:=1 to b do
begin
if z[j,i]>max[i] then
begin
max[i]:=z[j,i];
x[i]:=j;
end;
end;
end;
for i:=1 to a do
writeln ('Max',i,' = ',max[i]);
for i:=1 to a do
for j:=1 to b do
if (i=j) then
begin
k:=z[j,i];
z[j,i]:=z[x[i],i];
z[x[i],i]:=k;
end;
for i:=1 to a do
for j:=1 to b do
begin
gotoxy (j*6+a*7,i+5);
write (z[j,i]);
end;
for i:=2 to a do
for j:=1 to a-1 do
if j<i then
begin
k:=z[j,i];
z[j,i]:=z[i,j];
z[i,j]:=k;
end;
for i:=1 to a do
for j:=1 to b do
begin
gotoxy (j*6+10,i+5+a*2);
Write (z[j,i]);
end;
readkey;
end.

uses crt;
var m:array[1..100,1..100]of integer;
i,j,a,max,r,s:integer;
begin
clrscr;
write('Ââåäèòå ñòîðîíó êâàäðàòíîé ìàòðèöû=');
readln(a);
writeln('Èñõîäíàÿ ìàòðèöà');
max:=-1;
randomize;
for i:=1 to a do
 begin
  for j:=1 to a do
   begin
    m[i,j]:=random(51)-10;
    if (m[i,j]>=max) then
     begin
      max:=m[i,j];
      m[i,100]:=max;
      m[i,99]:=j;
     end;
    write(m[i,j]:3);
   end;
  write(' Ìàêñ. ýëåìåíò ',max);
  max:=-10;
  writeln;
 end;
writeln('Çàìåíà íàèáîëüøåãî ýëåìåíòà â ñòðîêå íà ýëåìåíò ãëàâíîé äèàãîíàëè');
for i:=1 to a do
 for j:=1 to a do
  if (i=j) then
   begin
    r:=m[i,j];
    m[i,j]:=m[i,100];
    s:=m[i,99];
    m[i,s]:=r;
   end;
for i:=1 to a do
 begin
  for j:=1 to a do
   write(m[i,j]:3);
  writeln;
 end;
readln
end.

for i:=1 to n do
 for  j:= 1 to i do
a[i,j]:=a[j,i];