Магический квадрат 4x4

Program MagicSquare;
Uses Crt;
Var A : Array [1..20, 1..20] of Integer;
     i, j, N : Integer;
     Standard, S : Integer; {Standard - сумма-эталон, S - текущая
сумма}
     Flag : Boolean;
{-------------------------------------}
Procedure InputOutput; {описание процедуры ввода-вывода
матрицы}
Begin
  ClrScr;
  Write('Количество строк и столбцов - ');
  ReadLn(N);
  For i := 1 to N do
     For j := 1 to N do
       begin Write('A[' , i , ', ' , j , '] = ');
               ReadLn(A[i, j])
       end;
  ClrScr;
  WriteLn('Исходная матрица :'); WriteLn;
  For i := 1 to N do
     begin
       For j := 1 to N do Write(A[i, j] : 5);
       WriteLn
     end; WriteLn
End; { of InputOutput }
{-------------------------------------------}
Procedure MagicOrNot(Var Flag : Boolean);             {описание
процедуры, }
                    {в которой выясняется, является ли квадрат
"магическим"}
 Begin      {вычисление суммы элементов главной диагонали}
            {в качестве эталонной суммы}
  Standard:=0;
  For i := 1 to N do Standard := Standard + A[i,i];
  Flag:=TRUE; i:=1;
  While (i<=N) and Flag do {вычисление сумм элементов строк}
     begin
       S:=0;
       For j := 1 to N do S := S+A[i, j];
       If S<>Standard then Flag := FALSE else i:=i+1
 
 
    end;
  j:=1;
  While (j<=N) and Flag do {вычисление сумм элементов столбцов}
    begin
      S:=0;
      For i := 1 to N do S:=S+A[i, j];
      If S<>Standard then Flag := FALSE else j := j+1
    end;
  If Flag then
    begin
      S:=0; {вычисление суммы элементов побочной диагонали}
      For i := 1 to N do S := S+A[i, N+1-i];
      If S<>Standard then Flag := FALSE;
    end;
End;
{--------------------------------------------------------}
BEGIN
  InputOutput; {Вызов процедуры ввода-вывода }
  MagicOrNot(Flag); {Вызов процедуры решения задачи }
  If Flag then WriteLn('Это магический квадрат.')
          else WriteLn('Это не магический квадрат.');
  ReadLn
END.

Program mag_kvadrat;
USES CRT;
 
CONST
NMAX=100;
 
VAR
a:array [1..NMAX,1..NMAX] of integer;
n:integer; {razmer prover kvadratnoj matr}
OK:boolean;
i,j:integer; {indeksyu}
sum:integer; {summa elementov glavnoj diagonali}
temp:integer; {summa elementov stroki, stolbca ili vtoroj diagonali matr}
Num:byte;
 
BEGIN
ClrScr;
Write ('BBEDUTE PA3MEP KBADPATHOU MATR U HAWMUTE <Enter> ->');
Readln (n);
Writeln;
Writeln ('<1> - SLUCH ZAPOLNENIE; <2> - SAMOSTOYATELNOE ZAPOLNENIE');
Writeln;
Write ('NUM {<1> or <2>} =');
Readln(Num);
If Num=1 then
begin
{---------------------------------------------------------------}
Randomize;
           for i:=1 to n do
           begin
           Writeln; {probelyu mejdy strokami}
           for j:=1 to n do         begin
                                    a[i,j]:=random(80);
                                    Write (a[i,j]:4);
                                    end;
                                    Writeln;
           end;
{---------------------------------------------------------------}
end;
If Num=2 then
begin
{---------------------------------------------------------------}
for i:=1 to n do
                 begin
                 Write('->');
                 for j:=1 to n-1 do read(a[i,j]);
                 Readln (a[i,n]);
                 end;
{---------------------------------------------------------------}
end;
 
OK:=TRUE; {Pust matr - mag kvadrat}
 
{chitaem summu elementov glavnoj diagonali}
sum:=0;
for i:=1 to n do
sum:=sum+a[i,i];
 
i:=1;
{chitaem summu po strokam}
 
REPEAT
temp:=0;  {summa elementov tekushej stroki}
for j:=1 to n do temp:=temp+a[i,j]; {poshitali summu po j stroke}
i:=i+1; {i tak dalee do posledujushih strok}
if temp<> sum then OK:=FALSE;
UNTIL (not OK) or (i>n);
 
If OK then
{zdes summa elementov kagdoj stroki
ravna summe elementov glavn diagonali}
 
 
Begin
{chitaem summyi po stolbcam}
j:=1;
 
REPEAT
temp:=0; {summa elementov tekushego stolbca}
for i:=1 to n do temp:=temp+a[i,j];
j:=j+1; {i tak dalee do posleduyushih stolbcov}
if temp<> sum then OK:=FALSE;
UNTIL (not OK) or (j>n);
 
If OK then
{zdes summa elementov kagdoj stroki
ravna summe elementov glavn diagonali
i ravna summe elementov kajdogo stolbca}
 
begin
{chitaem summu elementov pobochnoi diagonali}
temp:=0;
j:=n;
for i:=1 to n do begin
                 temp:=temp+a[i,j];
                 j:=j-1;
                 end;
if temp<> sum then OK:=FALSE;
end;
End;
Writeln;
 
Write ('VVEDENNAJA MATR ');
If not OK then
Write('!!! NE !!!');
Writeln (' JAVLYAETSYA MAGICHESKIM KVADRATOM');
Readkey;
END.