Перемещать прямоугольник по горизонтали с заданным шагом и задержкой в 1 сек

unit MyRect;
interface
uses graphABC;
type //описание объекта "Прямоугольник"
rect=class
     x,y: integer;//координаты центра объекта на экране
     w,h:integer;//ширина и высота
     color:integer;//цвет объекта
     constructor create(x1,y1,w1,h1:integer; color1:integer);//инициализация объекта
     procedure show;                                  //отображение объекта
     procedure move(dx: integer);                        //cмещение объекта на dx
     end;
implementation
constructor rect.create(x1,y1,w1,h1:integer; color1:integer);
 begin
   x:=x1; y:=y1;
   w:=w1; h:=h1;
   color:=color1;
 end;
procedure rect.show;
 begin
  setpencolor(color);
  rectangle(x-w div 2,y-h div 2,x+w div 2,y+h div 2) {нарисовать прям. заданным цветом}
 end;
procedure rect.move(dx:integer);
begin
x:=x+dx;//вычисление новой координаты
show;  //отобразить объект
end;
end.

uses graphABC,MyRect,Crt;
var rc:rect; //экземпляр объекта класса rect}
    dx:integer;
begin
//создание объекта
hidecursor;
textout(50,10,'Для выхода нажмите любую клавишу');
rc:=rect.create(windowwidth div 2,windowheight div 2,80,50,clRed);
//перемещение объекта по экрану
dx:=-5;
lockdrawing;
repeat
dx:=-dx;
while (rc.x<=windowwidth-rc.w div 2)and not keypressed do
 begin
  clearwindow;
  textout(50,10,'Для выхода нажмите любую клавишу');
  rc.move(dx);
  sleep(100);
  redraw;
 end;
dx:=-dx;
while (rc.x>=rc.w div 2)and not keypressed do
 begin
  clearwindow;
  textout(50,10,'Для выхода нажмите любую клавишу');
  rc.move(dx);
  sleep(100);
  redraw;
 end;
until keypressed;{любая клавиша - выход}
end.