На шахматной доске определить поля, в которые может попасть конь из указанной позиции.

[ValeriySergeevich]

На шахматной доске определить поля, в которые может попасть конь из указанной позиции. На Паскале!!!! Вот что есть, но выводит, только в случае, если конь обойдёт все поля! А надо чтобы всегда выводил, клетки которые не посетит метил бы 0.

program kon;
const
  n = 8; m =8 ; 
  di: Array[1..8] Of Integer = (-2, -1, 1, 2, 2, 1, -1, -2);
  dj: Array[1..8] Of Integer = (1, 2, 2, 1, -1, -2, -2, -1);
var
  a: Array[-1..n + 2, -1..m + 2] Of Integer;
  i, j,x,y,l,count: Integer;

procedure print;
var i,j:integer;
begin
  inc(count);
  for i := 1 To n Do 
  begin
    for j := 1 To m Do Write(a[i, j]:3);
    Writeln
  end;
end;

procedure rec(i, j, t: Integer);
var k: Integer;
begin
  if (a[i,j] = 0) Then 
  begin
    a[i,j] :=t;
    if t <> n * m Then
    begin
      for k := 1 To 8 Do  rec(i + di[k], j + dj[k], t + 1);
      a[i, j] := 0;
      end
    else 
      print; 
      end;
end;

begin
writeln('введите исходное положение');
read(x,y);
  count:=0;
  for i := -1 To n + 2 Do
    for j := -1 To m + 2 Do
      if (i < 1) Or (i > n) Or (j < 1) Or (j > m) Then a[i, j] := -1;
   rec(x, y, 1); 
  if count=0 Then Writeln('Невозможно выполнить обход');
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.