Летающая тарелка и самолет

uses GraphAbc;
var
  p,p1,p2:Picture;
  i,ip,dx,sx,sy:integer;
  ok,bdraw:boolean;
 
procedure MovePlane(Key:Integer);
begin
  if Key=VK_Escape then halt; 
  if not ok then
  case Key of
    Vk_Left: if ip>0 then ip:=ip-5;
    VK_Right: if ip<690 then ip:=ip+10;
    Vk_enter:if sy<=0 then begin
      sx:=ip+50;
      sy:=300;
      bdraw:=true;
    end;
  end;
end;  
 
procedure drawpole;
begin
    SetPenColor(clred);
    SetBrushColor(clred);
    p:=Picture.Create(100,55);
    p.Clear;
    p.fillCircle(50,25,25);
    p.fillEllipse(5,23,95,32);
    SetPenColor(clblue);
    SetBrushColor(clblue);
    p1:=Picture.Create(150,150);
    p1.Clear;
    p1.FillEllipse(40,1,80,150); 
    p1.FillRectangle(10,30,110,60);
    p1.FillRectangle(15,100,105,110);
    SetPenColor(clblack);
    SetBrushColor(clblack);
    p2:=Picture.Create(10,10);
    p2.Clear;
    p2.fillCircle(4,4,4);
end;
 
begin
  OnKeyDown:=MovePlane;
  setwindowsize(800,512);
  ClearWindow;
  i:=0;dx:=1;ip:=0;sx:=0;sy:=0;bdraw:=false;
  ok:=false;
  drawpole;
  repeat
    LockDrawing;
    p.draw(i,0);
    p1.Draw(ip,300);
    if bdraw then p2.Draw(sx,sy);
     i:=i+dx;
    if sy>0 then sy:=sy-1 else bdraw:=false;
    UnlockDrawing;
    if i=700 then dx:=-1;
    if i=0 then dx:=1;
    if ((sx>i+5) and (sx<i+p.Width-10)) and ((sy >20) and (sy<p.Height-10))then ok:=true;//подобрать координаты попадания в тарелку
  until ok;  
    randomize;
    repeat
      PutPixel(Random(Window.Width),Random(Window.Height),clRandom);
    until false;
end.

uses
  GraphABC;
 
var
  p, p1, p2: Picture;
  i, ip, sx, sy: word;
  dx: smallint;
  ok, bdraw: boolean;
 
procedure MovePlane(Key: Integer);
begin
  if Key = VK_Escape then halt; 
  if not ok then
    case Key of
      VK_Left: if ip > 0 then ip := ip - 5;
      VK_Right: if ip < 690 then ip := ip + 10;
      VK_Enter:
        if sy <= 0 then begin
          sx := ip + 50;
          sy := 300;
          bdraw := true;
        end;
    end;
end;
 
procedure drawpole;
begin
  SetPenColor(clred);
  SetBrushColor(clred);
  p := Picture.Create(100, 55);
  p.Clear;
  p.fillCircle(50, 25, 25);
  p.fillEllipse(5, 23, 95, 32);
  SetPenColor(clblue);
  SetBrushColor(clblue);
  p1 := Picture.Create(150, 150);
  p1.Clear;
  p1.FillEllipse(40, 1, 80, 150); 
  p1.FillRectangle(10, 30, 110, 60);
  p1.FillRectangle(15, 100, 105, 110);
  SetPenColor(clblack);
  SetBrushColor(clblack);
  p2 := Picture.Create(10, 10);
  p2.Clear;
  p2.fillCircle(4, 4, 4);
end;
 
begin
  OnKeyDown := MovePlane;
  setwindowsize(800, 512);
  ClearWindow;
  i := 0;dx := 1;ip := 0;sx := 0;sy := 0;bdraw := false;
  ok := false;
  drawpole;
  repeat
    LockDrawing;
    p.draw(i, 0);
    p1.Draw(ip, 300);
    if bdraw then p2.Draw(sx, sy);
    i := i + dx;
    if sy > 0 then sy := sy - 1 else bdraw := false;
    UnlockDrawing;
    if i = 700 then dx := -1;
    if i = 0 then dx := 1;
    if ((sx > i + 5) and (sx < i + p.Width - 10)) and ((sy > 20) and (sy < p.Height - 10)) then ok := true;
  until ok;  
  Randomize;
  repeat
    PutPixel(Random(Window.Width), Random(Window.Height), clRandom);
  until false;
end.

    Vk_Left: if ip>0 then ip:=ip-5;

    Vk_Left: if ip>0 then ip:=ip-10;