Вывод массива

[McFrey]

Программа для обхода конем шахматной доски.

program Horse;


const
  Dim = 5;
  PathLen = Dim * Dim;

type
  TField = Array[1..Dim, 1..Dim] of integer;
  tTraceXY = array[1..PathLen, 1..2] of integer;



function TryMove(i, j: integer; var Field: tField; var TraceXY: tTraceXY; n: integer): Boolean;
begin
  if n > PathLen then TryMove := true { путь найден }
  else
  begin
    TryMove := false;
    if (i >= 1) AND (i <= Dim) AND (j >= 1) AND (j <= Dim) AND (Field[i, j] = 0) then
    begin
      Field[i, j] := n;
      TraceXY[n, 1] := i; TraceXY[n, 2] := j;
      n := n + 1;
      if TryMove(i + 1, j + 2, Field, TraceXY, n) = true then TryMove := true
      else if TryMove(i + 1, j - 2, Field, TraceXY, n) = true then TryMove := true
      else if TryMove(i - 1, j + 2, Field, TraceXY, n) = true then TryMove := true
      else if TryMove(i - 1, j - 2, Field, TraceXY, n) = true then TryMove := true
      else if TryMove(i + 2, j + 1, Field, TraceXY, n) = true then TryMove := true
      else if TryMove(i + 2, j - 1, Field, TraceXY, n) = true then TryMove := true
      else if TryMove(i - 2, j + 1, Field, TraceXY, n) = true then TryMove := true
      else if TryMove(i - 2, j - 1, Field, TraceXY, n) = true then TryMove := true;
      Field[i, j] := 0;
      n := n - 1;
    end;
  end;
end;


var
  Field, FldOut: TField; 
  TraceXY: tTraceXY;
  n: integer; { текущая длина пути }
  x, y: integer;

begin
  for x := 1 to Dim do
    for y := 1 to Dim do
      Field[x, y] := 0;
  WriteLn(' Шахматное поле ', Dim, 'x', Dim);
  WriteLn('Введите координаты начального положения коня');
  Write('X='); ReadLn(x);
  Write('Y='); ReadLn(y);
  if (x < 1) OR (x > Dim) OR (y < 1) OR (y > Dim) then
    WriteLn('Неверный ввод.')
  else
  begin
    n := 1;
    WriteLn('Поиск путей длины  ', PathLen, ' ...');
    case TryMove(x, y, Field, TraceXY, n) of
      true: 
        begin
          WriteLn('Найденый путь');
          for x := 1 to PathLen do
            FldOut[TraceXY[x, 1], TraceXY[x, 2]] := x;
          for y := 1 to Dim do
          begin
            for x := 1 to Dim do
              write(FldOut[x, y]:4);
            writeln;
          end;
        end;
      false:       
      writeln('Путь не найден');
    end;
  end;
  readln;
end.

В самом конце программы, если false то как вывести массив последовательности ходов? и где невозможно походить заполнить его нулями.

[McFrey]

Люди добрые....спасайте...

[McFrey]

неужели никто не знает как это осуществить?(