Анимация. Надо найти ошибку

[AntoshkaK]

У меня получилось, что восьмиугольник отскакивает 1 раз вместо 5. Где ошибка?

Uses GraphABC;
Const
   sz=20;
   k=5;
   d=5;
Procedure Octagon(x,y:Integer);
   begin
     Line(x+sz,y, x+sz*2,y);
      Line(x+sz*2,y, x+sz*3,y+sz);
       Line(x+sz*3,y+sz, x+sz*3,y+sz*3);
        Line(x+sz*3,y+sz*3, x+sz*2,y+sz*4);
         Line(x+sz*2,y+sz*4, x+sz,y+sz*4);
          Line(x+sz,y+sz*4, x,y+sz*3);
           Line(x,y+sz*3, x,y+sz);
            Line(x,y+sz, x+sz,y);
    end;

Var
   wh,kol,x,y,direct:Integer;
Begin
   wh:=WindowHeight;
   CenterWindow;
    x:=0;
     y:=0;
      Direct:=1;
       kol:=0;
     SetSmoothing(false);
    Repeat
       SetPenColor(clRed);
        Octagon(x,y);
       Sleep(10);
       SetPenColor(clWhite);
        Octagon(x,y);
   If (x>=wh-sz*3-d) and (y>=wh-sz*3-d) Then
    direct:=-1;
   If x<=sz Then
   begin
    direct:=1;
     kol:=kol+1;
   end;
   x:=x+direct*d;
   y:=y+direct*d;
    Until kol>k;
      SetPenColor(clRed);
       Octagon(x-sz-d,y-sz-d);
End.

[Serge_Bliznykov]

ну вы же считаете не количество отражений, а количество шагов... поэтому и завершается быстро..

и ещё, кто вас учил так ужасно форматировать код?!

А попробуйте такое решение:

uses GraphABC;
const
  sz = 20;
  k = 5;
  d = 5;

procedure Octagon(x, y: Integer);
begin
  Line(x + sz, y, x + sz * 2, y);
  Line(x + sz * 2, y, x + sz * 3, y + sz);
  Line(x + sz * 3, y + sz, x + sz * 3, y + sz * 3);
  Line(x + sz * 3, y + sz * 3, x + sz * 2, y + sz * 4);
  Line(x + sz * 2, y + sz * 4, x + sz, y + sz * 4);
  Line(x + sz, y + sz * 4, x, y + sz * 3);
  Line(x, y + sz * 3, x, y + sz);
  Line(x, y + sz, x + sz, y);
end;

var
  wh, kol, x, y, direct: Integer;
begin
  wh := WindowHeight;
  CenterWindow;
  x := 0;
  y := 0;
  Direct := 1;
  kol := 0;
  SetSmoothing(false);
  repeat
    SetPenColor(clRed);
    Octagon(x, y);
    Sleep(10);
    SetPenColor(clWhite);
    Octagon(x, y);
    if (x >= wh - sz * 3 - d) and (y >= wh - sz * 3 - d) then
      direct := -1;
    if x <= sz then
    begin
      if direct < 0 then kol := kol + 1;
      direct := 1;
    end;
    x := x + direct * d;
    y := y + direct * d;
  until kol > k;
  SetPenColor(clRed);
  Octagon(x - sz - d, y - sz - d);
end.