Нарисовать движущийся корабль — Pascal(Паскаль)

uses graph,crt;
var
gd,gm,x,y,cl,bk:integer;
{ Кораблик }
Procedure Move(x,y:integer; cl:word);
var
  cl1:word;
begin
cl1:=GetColor; { сохранить текущий цвет }
SetColor(cl);    { установить новый цвет }
  {  корпус }
  MoveTo(x,y);
  LineTo(x+100,y);
  LineTo(x+70,y+30);
  LineTo(x+30,y+30);
  LineTo(x,y);
  {парус}
  MoveTo(x+30,y);
  LineTo(x+50,y-50);
  LineTo(x+70,y);
  Line(x+50,y,x+50,y-50);
  { иллюминаторы }
  Circle(x+35,y+15,3);
  Circle(x+55,y+15,3);
  Circle(x+75,y+15,3);
  SetColor(cl); { восстановить текущий цвет }
end;
 
begin
gd:=detect;
initgraph(gd,gm,'');
x:=10;
y:=200;
cl:=LightGray;
setbkcolor(blue);
bk:=getbkcolor;
repeat
Move(x,y,cl);     { нарисовать корабль }
Delay(50);
Move(x,y,bk);   { стереть корабль }
putpixel(x+30,y+30,cl);  { след от корабля }
x:=x+2;
until (x>580);
setcolor(red);
settextstyle(0,0,3);
outtextXY(200,240,'Priehali!');
readln;
CloseGraph
end.