Задана квадратная матрица. Поменять местами строку с максимальным элементом на главной диагонали со строкой с заданным номером n — Pascal(Паскаль)

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);//1<=s2<=n and s2<>s1
for j:=1 to n do
begin
m:=a[s1,j];
a[s1,j]:=a[s2,j];
a[s2,j]:=m;
end;