Реализовать перемещение ракеты

Program Raketa;
uses Crt, Graph;
var
  gd, gm: Integer;{переменные инициализации графики}
  xc,yc: Integer;{координаты нижней средней точки}
{процедура рисования ракеты}
procedure draw(x,y:Integer);
begin
   MoveTo(x,y);{перемещение в точку}
   LineTo(x-20,y);{рисование линии}
   LineTo(x-10,y-round(sqrt(3)*10));
   LineTo(x,y);
   LineTo(x+10,y-round(sqrt(3)*10));
   LineTo(x+20,y);
   LineTo(x,y);
   MoveTo(x-10,y-round(sqrt(3)*10));
   LineTo(x-15,y-50);
   LineTo(x,y-80);
   LineTo(x+15,y-50);
   LineTo(x+10,y-round(sqrt(3)*10));
   Circle(x,y-50,5);{рисование окружности}
   Circle(x,y-30,5);
end;
BEGIN
gd := detect;{инициализация графики}
 InitGraph(gd, gm, '');
 If GraphResult <> grOk then
      Halt(1);
 ClearDevice;{очистка экрана}
xc:=round(GetMaxX/2);{задаем начальные точки}
yc:=GetMaxY-20;
 Draw(xc,yc);{рисуем ракету}
 Readln;{ждем нажатия любой клавиши}
While yc-80>0 do{цикл - пока верхняя точка ракеты не упрется в конец экрана}
 begin
 yc:=yc-5;{изменяем координату y - летим вверх}
 ClearDevice;{очистка экрана}
 Draw(xc,yc);{отрисовка нового положения ракеты}
 Delay(100); {пауза}
 end;
Readln; {ждем нажатия любой клавиши}
CloseGraph;{закрываем графический режим}
END.

Program Raketa;
uses Crt,GraphABC;
var xc,yc: Integer;{координаты нижней средней точки}
{процедура рисования ракеты}
procedure draw(x,y:Integer);
begin
   MoveTo(x,y);{перемещение в точку}
   LineTo(x-20,y);{рисование линии}
   LineTo(x-10,y-round(sqrt(3)*10));
   LineTo(x,y);
   LineTo(x+10,y-round(sqrt(3)*10));
   LineTo(x+20,y);
   LineTo(x,y);
   MoveTo(x-10,y-round(sqrt(3)*10));
   LineTo(x-15,y-50);
   LineTo(x,y-80);
   LineTo(x+15,y-50);
   LineTo(x+10,y-round(sqrt(3)*10));
   Circle(x,y-50,5);{рисование окружности}
   Circle(x,y-30,5);
end;
BEGIN
hidecursor;
xc:=windowwidth div 2;{задаем начальные точки}
yc:=windowheight-20;
Draw(xc,yc);{рисуем ракету}
Readkey;{ждем нажатия любой клавиши}
While yc-80>0 do{цикл - пока верхняя точка ракеты не упрется в конец экрана}
 begin
 yc:=yc-5;{изменяем координату y - летим вверх}
 clearwindow;{очистка экрана}
 Draw(xc,yc);{отрисовка нового положения ракеты}
 Sleep(100); {пауза}
 end;
end.