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

program my_project;
Uses crt;
Var a:array[1..100,1..100] of integer;
    i,j,n,s,w,k,q,d,x:integer;
    b:array [1..100]of integer;
begin
write('Введите размерность квадрата: ');
read(n);
for i:=1 to n do
for j:=1 to n do
 a[i,j]:=Random(4);
         for i:=1 to n do
      begin
        for j:=1 to n do
        Write(a[i,j]:4);
        WriteLn;
 end;
x:=1;
s:=0;//сумма главной диагонали
for i:=1 to n do
s:=s+a[i,i];
k:=1;
b[x]:=s;
for i:=1 to n do
 begin
 x:=x+1;
  w:=0; q:=0;
  for j:=1 to n do
   begin
    w:=w+a[j,i];//считаем столбец
    b[x]:=w;
    end;
    begin
    x:=x+1;
    for j:=1 to n do
    q:=q+a[i,j];//строку
    b[x]:=q;
   end;
  if (s<>w) or (q<>s) then k:=0;
 end;
x:=x+1;
for i:=1 to n do
d:=d+a[i,n-i+1];  b[x]:=d;
if d<>s then k:=0;
if k=0 then write('Квадрат не магический!')
else write('Квадрат магический!!!');
readln;
 
 for i:=1 to 2*n+2 do
      write(b[i]:4);
 
end.