Дана целая квадратная матрица n-го порядка . Определить, является ли она логическим квадратом , т.е во всех строках и столбцах и одинаковы — Pascal(Паскаль)

Program kvm;   {Программа магическтей квадрат}
Uses crt;
Const n=3; a: array[1..n,1..n] of byte=((5,4,3),(2,4,6),(5,4,3));
Var i,j,d,f: byte; s,r: array[1..n] of byte; flag: boolean;
Begin
d:=0; f:=0;
for i:=1 to n do
begin
s[i]:=0;
r[i]:=0;
end;
Clrscr;
Writeln('      Исходный массив: ');
For i:=1 to n do
begin
For j:=1 to n do
begin
Gotoxy(j*3+8,i+1);
Write(a[i,j]);
end;
Writeln;
end;
For j:=1 to n do
For i:=1 to n do
s[j]:=s[j]+a[i,j];
For i:=1 to n do
For j:=1 to n do
begin
r[i]:=r[i]+a[i,j];
If i=j then d:=d+a[i,j];
If j=n-i+1 then f:=f+a[i,j];
end;
For i:=1 to n do
If (f=d) and (f=s[i]) and (f=r[i]) then
flag:=true else flag:=false;
If flag=true then
begin
Textcolor(cyan);
Writeln('Массив является магическим квадратом');
end
else
begin
Textcolor(lightred);
Writeln('Массив не является магическим квадратом');
end;
End.