Поменять местами строку матрицы с максимальным элементом на главной диагонали со строкой с заданным номером

a:array[1..n,1..n] of integer;s1,s2,m:integer;
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=random(20);
if (i=1) and (j=1) then begin s1:=i; m:=a[i,j];end else if i=j then if a[i,j]>m then begin s1:=i;m:=a[i,j];end;
end;
readln(s2);
for j:=1 to n do
begin
m:=a[s1,j];
a[s1,j]:=a[s2,j];
a[s2,j]:=m;
end;

uses crt;
const n=6;
var m:array[1..n,1..n]of integer;
    i,j,index,k,max,buf:integer;
begin
clrscr;
randomize;
writeln('Матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    m[i,j]:=random(10);
    write(m[i,j]:3);
   end;
  writeln;
 end;
max:=m[1,1];
index:=1;
for i:=1 to n do
if m[i,i]>max then
 begin
  max:=m[i,i];
  index:=i;
 end;
writeln('Максимальный элемент=',max,' строка=',index);
repeat
write('Номер строки для перестановки k=');
readln(k);
until k in [1..n];
if index<>k then
for i:=1 to n do
  begin
   buf:=m[index,i];
   m[index,i]:=m[k,i];
   m[k,i]:=buf;
 end;
writeln('Измененная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(m[i,j]:3);
  writeln;
 end;
readln
end.