Проверьте на работоспособность прогу о шахматном коне

Program shah_kon;
uses crt;
const XG:array[1..8] of integer = (1,2,2,1,-1,-2,-2,-1); {массив вариантов ходов по горизонтали}
      YV:array[1..8] of integer = (-2,-1,1,2,2,1,-1,-2); {массив вариантов ходов по вертикали}
 
var   DS:array[1..8,1..8] of integer;   {массив размера доски}
      gor,ver:integer; {переменные  расположения коня}
      i,j,n,x,y,kol:integer;  k:integer; {переменная вариантов хода}
begin
   clrscr;
   {Обнуления клеток доски}
   for j:=1 to 8 do
    for i:=1 to 8 do
     DS[i,j]:=0;
 
   writeln('=Введите координаты расположения коня=');
   writeln('по горизонтали [1..8]: '); readln(gor);
   writeln('по вертикали [1..8]: '); readln(ver);
   n:=1;
   k:=1;
   DS[ver,gor]:=n;
   {цикл хода коня}
   repeat
     x:=gor+XG[k];
     y:=ver+YV[k];
     if (x<1) or (x>8) or (y<1) or (y>8) then inc(k)
     else if (DS[y,x]>0) then inc(k)
     else begin
      gor:=x;
      ver:=y;
      inc(n);
      DS[ver,gor]:=n;
      k:=1;
      inc(kol);
     end;
   until (k>8);
   writeln('Количество ходов коня: ', kol+1);
   if (k=53) then writeln('Количество ходов коня ровняется числу 63!')
   else writeln('Количество ходов коня не ровняется числу 63!');
   writeln('Пройденный путь коня: ');
   for i:=1 to 8 do begin
    writeln;
    for j:=1 to 8 do write(DS[i,j]:3);
     writeln;
   end;
   readln;
end.