Проверьте прогу.Почему не работает?

[drakon803]

Прога по матрице:вводится с клавиатуры матрица 7x7.Надо определить,является ли матрица магическим квадратом(сумма строк и столбцов должны быть одинаковыми)
Вот прога:

var mt: array{1..7,1..7] of integer;
p,k,x1,x2,x3 :integer;
b :boolean;
begin writeln ('vvedite matricu');
for p:=1 to 7 do 
for k:= 1 to 7 do
read (mt [p,k]);
for k:=1 to 7 do
x1:=x1+mt [1,k];
b:= trye;
for p:=1 to 7 do
 x2:=0;
for k:=1 to 7 do
x3:=x2+mt[p,k];
if x2 <>x1 then b:= false;
end;
for p:=1 to 7 do
x3:=0;
for k:=1 to 7 do
x3:=x3+mt[k,p];
if x3<>x1 then b:= false;
end;
x3:=0;
if b:= false then
writeln('ne magik')
else 
writeln ('magik');
readln;readln;
end.

Код вставляем в тег [CОDE][/СОDЕ] или пользуемся кнопкой # (расширенный режим). Модератор.

[Yogik™]

Не знаю, как там насчет алгоритма.. но "истинно" точно пишется как "true", а не "trye"..
И еще:

mt: array{1..7,1..7] of integer;

Почему первая скобка фигурная?

if b:= false then

- условие пишется без двоеточия
.. в циклах и условиях здесь нет ни одного begin, зато куча end..
Компилятор вроде про такого рода ошибки всегда рассказывает.. или он обиделся на тебя?

[kommunist]

const n=7;
var x:array[1..n,1..n] of integer;
   i,j,s,snew:integer;
   bo:boolean;
Begin

  randomize;
 {*************************************}
  for i:=1 to n do
   begin
      for j:=1 to n do
       begin
          x[i,j] := random(10);
          write(x[i,j]);
          write(' ');
       end;
       writeln;
   end;
 {**************************************}
   bo:=true;
   s:=0;
   j:=1;
 {**************************************}
   for i:=1 to n do
    s:=s+x[i,j];
   writeln('s=',s);
 {**************************************}
  j:=1;
  while j<=n do
   begin
      snew:=0;
      for i:=1 to n do
       snew:=snew+x[i,j];
      if snew<>s then
       bo:=false;
      if bo=false then break;
      inc(j);
   end;
 {***************************************}
 i:=1;
 while i<=n do
  begin
     snew:=0;
     for j:=1 to n do
      snew:=snew+x[i,j];
     if snew<>s then
      bo:=false;
     if bo=false then break;
     inc(i);
  end;

 {***************************************}
 snew:=0;
 for i:=1 to n do
  snew:=snew+x[i,i];
 if snew<>s then
  bo:=false;
 {***************************************}
 snew:=0;
  j:=1;
for i:=n downto 1 do
 begin
    snew:=snew+x[i,j];
    inc(j);
 end;
 if snew<>s then
  bo:=false;
 {***************************************}
 writeln(bo);
 if bo=true then writeln('Magichesky')
  else writeln('Ne mahichsky');

readln;
 end.
end.