Прошу помощи Братия и Сестры

[demon60000]

2. Дана целая квадратная матрица порядка N. Определить, является ли она магическим квадратом, т.е. такой, в которой все суммы элементов в строках, столбцах и на диагоналях равны одному и тому же числу.

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

[capta1n]

program capta1n;
const
 n = 5;
var
 a : array [1..n,1..n] of integer;
 sum1,sum2,sum3 : integer;
 flag : boolean;
 i,k : 1..n;
begin

for i:=1 to n do
begin
  for k:=1 to n do
  begin
    a[i,k]:=random(3);
    write (a[i,k],'|')
  end;
  writeln
end;
writeln;

sum3:=0;
for k:=1 to n do sum3:=sum3+a[1,k];
flag:=true;
for i:=1 to n do
begin
  sum1:=0;
  sum2:=0;
  for k:=1 to n do
  begin
    sum1:=sum1+a[i,k];
    sum2:=sum2+a[k,i]
  end;
  if (sum1<>sum3) or (sum2<>sum3) then
  begin
    flag:=false;
    break
  end
end;
sum1:=0;
sum2:=0;
for i:=1 to n do
begin
  sum1:=sum1+a[i,i];
  sum2:=sum2+a[i,n-i+1]
end;
if (sum1<>sum3) or (sum2<>sum3) then flag:=false;

if not flag then write ('Ne ');
writeln ('magi4eskiy');
readln
end.