Определить, является ли матрица магическим квадратом

{ Дана целая квадратная матрица n-го порядка.
Определить, является ли она магическим квадратом, т.е. такой, в которой суммы элементов во всех строках и столбцах одинаковы. }
 
var a: array[1..10,1..10] of integer;
    sum_row, sum_col: array[1..10] of integer;
    i,j: integer;
    buf: integer;
begin
     writeln('Введите исходную матрицу: ');
     for i:=1 to 10 do
         for j:=1 to 10 do readln(a[i,j]);
     writeln('Исходная матрица: ');
     for i:=1 to 10 do begin
         for j:=1 to 10 do write(a[i,j]:5);
         writeln;
     end;
     for i:=1 to 10 do begin
         for j:=1 to 10 do buf:=buf+a[i,j];
         sum_row[i]:=buf;
         buf:=0;
     end;
     for j:=1 to 10 do begin
         for i:=1 to 10 do  buf:=buf+a[i,j];
         sum_col[j]:=buf;
         buf:=0;
     end;
     for i:=1 to 10 do
         if  sum_row[1]<>sum_row[i] then begin
             writeln('Не является магическим квадратом!');
             exit;
         end;
     for i:=1 to 10 do
         if   sum_col[1]<> sum_col[i] then begin
             writeln('Не является магическим квадратом!');
             exit;
         end;
     writeln('Является магическим квадратом!');
end.

var a: array[1..100,1..100] of integer;
    i,j: integer;
    n,m: integer;
    buf, tp: integer;
begin
     writeln('Введите размерность матрицы NxM: ');
     readln(n,m);
     for i:=1 to n do
         for j:=1 to m do readln(a[i,j]);
     writeln('Исходная матрица: ');
     for i:=1 to n do begin
         for j:=1 to m do write(a[i,j]:5);
         writeln;
     end;
     // Запоминаем сумму первой строки
     for i:=1 to m do tp:=tp+a[1,j];
     //Просматриваем матрицу по строкам
     for i:=1 to n do begin
         for j:=1 to m do buf:=buf+a[i,j];
         if tp<>buf then begin
            writeln('Не является магическим квадратом!');
            exit;
         end;
         buf:=0;
     end;
     buf:=0;
     //Проматриваем по столбцам
     for j:=1 to m do begin
         for i:=1 to n do buf:=buf+a[i,j];
         if tp<>buf then begin
            writeln('Не является магическим квадратом!');
            exit;
         end;
         buf:=0;
     end;
     writeln('Матрица является магическим квадратом!');
end.