Не компилируется в FreePascal, зато в Delphi работает!

[k1r1ch]

Не знал, куда написать, написал сюда. Вот моя программа:

program Obl2x8x3;
uses CRT;
var
  x, y: integer;
  Temp, Temp2, Num: byte;
  ResultList: array [1..16] of integer;
  Used: array [1..16] of boolean;
  Matrix: array [1..16, 1..16] of boolean;

procedure ClearArray(Arr: array of boolean);
var i: integer;
begin
  for i := 1 to 16 do
    Arr[i] := false;
end;

function DFS(V, Position: integer): boolean;
var i: integer;
begin
  DFS := false;
  if Position = Num then
    begin
      DFS := true;
      ResultList[Position] := V;
    end
  else
    for i := 1 to Num do
      if Matrix[V, i] and not Used[i] then
        begin
          Used[V] := true;
          if DFS(i, Position + 1) then
            begin
              DFS := true;
              ResultList[Position] := V;
              Break;
            end;
        end;
end;

begin
  ClrScr;
  Write('Количество учеников: ');
  Readln(Num);
  for x := 1 to Num do
    begin
      Writeln('Введите через пробел кол-во друзей ', x,'-ого ученика и');
      Writeln('номера этих друзей (''2 1 2'' означает, что у ученика 2 друга - 1-ый и 2-ой): ');
      Read(Temp);
      for y := 1 to Temp do
        begin
          Read(Temp2);
          Matrix[x, Temp2] := true;
          Matrix[Temp2, x] := true;
        end;
      Readln;
    end;
  for x := 1 to Num do
    begin
      ClearArray(Used);
      if DFS(x, 1) then
        begin
          Write('Правильная расстановка: ');
          for y := 1 to Num do
            Write(ResultList[y], ' ');
          Break;
        end
      else
        begin
          Write('Невозможно расставить правильно!');
          if x = Num then Break;
        end;
    end;
  repeat until keypressed;
end.

В Delphi компилируется и работает как надо, во FreePascal выкидывает ошибку номер 201, а TurboPascal просто зависает во время работы! Как это объяснить?

Еще одна странность - если я пишу во FreePascal'е русскими буквами, то во время работы высвечивается тарабарщина какая-то, но если я открою этот файл в Delphi и напишу там русскими буквами, то во FreePascal'е в коде в русских словах тарабарщина, а во время работы - русские буквы нормально отображаются.

P.S.: Отключил проверку выхода за границы массива ({$R-}), теперь работает, но где там могла быть ошибка?

P.S.S.: Но в Паскале до сих пор не работает, а мне главное в нем запустить! В чем проблема???

[Alex2009]

добавь readln

[k1r1ch]

Где нету? В конце? А repeat until keypressed на что? Я же говорю, зависает просто, после того, как я ввел числа, где-то на рекурсии.

[Serge_Bliznykov]

потому что ошибка здесь:

procedure ClearArray(var Arr: array of boolean);
var i: integer;
begin
  for i := 1 to 16 do
    Arr[i] := false;
end;

допиши то, что выделено красным!

а вообще, я бы не рекомендовал использовать подобный синтаксис..
лучше задать нужный тип массива, например:
type ArrBool = array[1..16] of boolean;
и дальше использовать его:
...
Used: ArrBool;
...
procedure ClearArray(var Arr: ArrBool);

[k1r1ch]

Да, спасибо, теперь работает! Но чем лучше массив как тип делать? И почему компиляторы по разному реагировали на ошибку?