Примитивная игра червячок

uses graphABC, crt;
var x,y,x1,y1,dx,z,c,r:integer;
   begin
  x:=80;
  y:=50;
  x1:=20;
  y1:=40;
  dx:=15;
  z:=200;
  c:=45;
  r:=7;
  
  setbrushcolor (clred);
  circle(z,c,r);
  begin
  repeat
  setbrushcolor(clgreen);
  rectangle(x,y,x1,y1);
  delay(300);
  
  setpenmode (15);
  rectangle(x,y,x1,y1);
 
  x:=x+dx;
  x1:=x1+dx;
  until x=215;
  setbrushcolor (clwhite);
circle (z,c,r);
end;
end.

uses graphABC, crt;
var x,y,x1,y1,dx,z,c,r:integer;
b:boolean;
begin
setwindowsize(600,200);
  x:=80;
  y:=50;
  x1:=20;
  y1:=40;
  dx:=25;
  z:=200;
  c:=45;
  r:=7;
b:=true;
lockdrawing;
  repeat
  clearwindow;
  setbrushcolor(clgreen);
  rectangle(x,y,x1,y1);
  sleep(300);
  setbrushcolor (clred);
  if (abs(x-z)<7) and (abs(y-c)<7) then begin x:=x+dx; b:=false; end;
  if b then circle(z,c,r);
  x:=x+dx;
  x1:=x1+dx;
  redraw;
  until keypressed or (x>625);
end.

uses graphABC, crt;
var x,y,x1,y1,dx,z,c,r,kol:integer;
begin
setwindowsize(600,200);
randomize;
  x:=80;
  y:=50;
  x1:=20;
  y1:=40;
  dx:=10;
  z:=random(150)+x;
  c:=45;
  r:=10;
  kol:=1;
lockdrawing;
  repeat
  clearwindow;
  setbrushcolor(clgreen);
  rectangle(x,y,x1,y1);
  sleep(300);
  setbrushcolor (clred);
  If kol<=3 then circle(z,c,r);
  x:=x+dx;
  x1:=x1+dx;
  while (abs(x-z)<10) and (abs(y-c)<10) and (kol<=3) do begin x:=x+dx; z:=random(100)+x; inc(kol); end;
  redraw;
  until keypressed or (x>625);
end.