Графика: Нарисовать подводную лодку, которая плывет и время от времени поднимает перископ

uses graphABC;
procedure nebo;
begin
setbrushcolor(clAqua);
rectangle(0,0,windowwidth,windowheight div 2);
end;
procedure more;
begin
setbrushcolor(clBlue);
rectangle(0,windowheight div 2,windowwidth,windowheight);
end;
 
procedure lodka(x,y:integer);
begin
setbrushcolor(clBlack);
ellipse(x+20,y-10,x+85,y+10);
rectangle(x-40,y-10,x+50,y+10);
line(x-80,y-3,x-80,y+3);
line(x-80,y-3,x-40,y-10);
line(x-80,y+3,x-40,y+10);
floodfill(x-75,y,clBlack);
rectangle(x-77,y-10,x-70,y+10);
rectangle(x,y-25,x+30,y-10);
end;
procedure periskop(x,y,h:integer);
begin
if h<30 then
 begin
  setbrushcolor(clBlack);
  rectangle(x+13,y-25-h,x+17,y-25);
  rectangle(x+17,y-25-h,x+20,y-25-h+5);
 end
else
 begin
  setbrushcolor(clBlack);
  rectangle(x+13,y-55,x+17,y-25);
  setbrushcolor(clSilver);
  rectangle(x+13,y-55-(h-30),x+17,y-55);
  rectangle(x+17,y-55-(h-30),x+20,y-55-(h-30)+5);
 end;
end;
var x,y,h:integer;
begin
x:=80;
y:=windowheight div 2+55;
h:=10;
nebo;
more;
lodka(x,y);
periskop(x,y,h);
lockdrawing;
while x<=windowwidth+70 do
 begin
  clearwindow;
  nebo;
  more;
  lodka(x,y);
  periskop(x,y,h);
  sleep(15);
  x:=x+1;
  if x mod 100 in [0..20] then h:=40
  else h:=10;
  redraw;
 end;
  
end.