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

[Nerotim]

Компилятор вылетает после выполнения программы. Ридлайны не помогают

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
Type Tmatr= array[1..10,1..10] of integer;
Var A : Tmatr;
    Flag : Boolean;

//====================================
Procedure VVODVIVOD(Var A: Tmatr);
 var i,j,N: integer;
Begin

  write(' razmer matrizi- ');
  readLn(N);
  for i := 1 to N do
  begin
     for j := 1 to N do
     Read(A[i, j]);
       end;

  writeLn('ishodnaya matriza :'); WriteLn;
  for i := 1 to N do
     begin
       for j := 1 to N do write(A[i, j]);
       writeLn;
     end;
     writeLn;
     readln;
End;
//-------------------------------------------
Procedure Magic(Var Flag : Boolean);
var S1,S,i,j,N: integer;
 Begin
  S1:=0;
  For i := 1 to N do
  S1 := S1 + A[i,1];
  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<>S1 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<>S1 then Flag := FALSE
      else j := j+1
    end;
    end;

//--------------------------------------------------------
BEGIN
  VVODVIVOD(A);
  Magic(Flag);
  If Flag then WriteLn('eto magicheskii kvadrat')
          else WriteLn('eto ne magicheskii kvadrat');
  readln;

 { TODO -oUser -cConsole Main : Insert code here }
 readln;
end.

[Abstraction]

Компилятор завершает свою работу до начала выполнения программы (собственно, создавая оную программу). Уточните, что именно у Вас происходит.

[Nerotim]

Программа выполняется, появляется результат на долю секунды и происходит вылет.

[alexander13]

Ну, как минимум, при вызове процедуры Magic у Вас внутри нее окажется неинициализированным значение переменной N, т.к. Вы инициализируете readln-ом в процедуре VVODVIVOD локальную для этой процедуры переменную N, которая к первой упомянутой N не имеет отношения.
Надеюсь, понятно объяснил.

Upd. Короче, в процедуре VVODVIVOD - своя переменная N, значение которой задается readln-ом, а в процедуре Magic - другая N, значение которой вообще не задается. Вот =)

[Serge_Bliznykov]

alexander13, абсолютно прав!

я бы переменную сделал глобальной (это, конечно, не самый лучшый вариант, зато - самый простой). Для этого допишите то, что отмеченно зелёным и удалите то, что помечено красным

uses
  SysUtils;
Type Tmatr= array[1..10,1..10] of integer;
Var A : Tmatr;
    Flag : Boolean;
    N : integer;

//====================================
Procedure VVODVIVOD(Var A: Tmatr);
 var i,j,N: integer;
Begin

  write(' razmer matrizi- ');
  readLn(N);
  for i := 1 to N do
  begin
     for j := 1 to N do
     Read(A[i, j]);
       end;

  writeLn('ishodnaya matriza :'); WriteLn;
  for i := 1 to N do
     begin
       for j := 1 to N do write(A[i, j]);
       writeLn;
     end;
     writeLn;
     readln;
End;
//-------------------------------------------
Procedure Magic(Var Flag : Boolean);
var S1,S,i,j,N : integer;
 Begin
  S1:=0;

[Nerotim]

Всем огромное спасибо)