Изменение размера при движении по поверхности экрана

uses graphABC;
procedure rect(x,y,w,h:integer);
begin
setpencolor(clRed);
setpenwidth(3);
rectangle(x,y,x+w,y+h);
end;
var x,y,w,h:integer;
begin
w:=60;
h:=40;
setwindowsize(9*w,10*h);
x:=0;
y:=0;
lockdrawing;
while (x<windowwidth-w)and(y<windowheight-h) do
 begin
  clearwindow;
  rect(x,y,w,h);
  sleep(20);
  x:=x+4;
  y:=y+3;
  redraw
 end;
sleep(500);
x:=windowwidth-w;
y:=0;
while (x>0)and(y<windowheight-h) do
 begin
  clearwindow;
  rect(x,y,w,h);
  sleep(20);
  x:=x-4;
  y:=y+3;
  redraw
 end;
end.

uses graphABC;
var xc,yc,r,dx,dy,x1,y1,x2,y2,x3,y3,x4,y4:integer;
    f:boolean;
procedure KeyDown(Key: integer);
begin
if Key=VK_Return then f:=false;//условие выхода из программы
end;
begin
f:=true;
setwindowsize(640,480);
xc:=windowwidth div 2;
yc:=windowheight div 2;
r:=20;
dx:=4;
dy:=3;
lockdrawing;
while f do
 begin
  x1:=xc-r;
  y1:=yc-r;
  x2:=xc+r;
  y2:=y1;
  x3:=x2;
  y3:=yc+r;
  x4:=x1;
  y4:=y3;
  Pen.Color:=clRandom;
  setpenwidth(3);
  while (x1>2*r)and f do
   begin
    clearwindow;
    textout(xc-50,20,'Выход Enter');
    x1:=x1-dx; y1:=y1-dy;
    x2:=x2+dx; y2:=y2-dy;
    x3:=x3+dx; y3:=y3+dy;
    x4:=x4-dx; y4:=y4+dy;
    circle(x1,y1,r);
    circle(x2,y2,r);
    circle(x3,y3,r);
    circle(x4,y4,r);
    sleep(50);
    redraw
   end;
  OnKeyDown := KeyDown;
 end;
end

uses graphABC;
var xc,r,dx,dy,x1,y1,x2,y2,x3,y3,x4,y4:integer;
    f:boolean;
procedure KeyDown(Key: integer);
begin
if Key=VK_Return then f:=false;//условие выхода из программы
end;
begin
f:=true;
setwindowsize(640,480);
xc:=windowwidth div 2;
r:=20;
dx:=4;
dy:=3;
lockdrawing;
while f do
 begin
  x1:=r;
  y1:=r;
  x2:=windowwidth-r;
  y2:=r;
  x3:=x2;
  y3:=windowheight-r;
  x4:=x1;
  y4:=y3;
  Pen.Color:=clRandom;
  setpenwidth(3);
  while (x1<xc-2*r)and f do
   begin
    clearwindow;
    textout(xc-50,20,'Выход Enter');
    x1:=x1+dx; y1:=y1+dy;
    x2:=x2-dx; y2:=y2+dy;
    x3:=x3-dx; y3:=y3-dy;
    x4:=x4+dx; y4:=y4-dy;
    circle(x1,y1,r);
    circle(x2,y2,r);
    circle(x3,y3,r);
    circle(x4,y4,r);
    sleep(50);
    redraw
   end;
  OnKeyDown := KeyDown;
 end;
end.