Графика в Паскале

[Excellent69]

Господа, есть программа в паскале. Графика. Круг двигается по определённой траектории. Надо круг заменить квадратом... Прошу помощи!

uses crt,graphabc;
var x,y,q,w,e,t,r:integer;
begin
q:=10; w:=10;e:=400;t:=220;  r:=20;
x:=e div 2;y:=t-r;
rectangle(q,w,e,t);
 circle (x,y,r);
                floodfill(x,y,clred);

while x>q+r do
begin
delay(20);
      clearwindow;
rectangle(q,w,e,t);
circle (x,y,r);
floodfill(x,y,clblue);
x:=x-2;
y:=y-1;
end;
while  (x<=e-r) do
begin
delay(15);
      clearwindow;
rectangle(q,w,e,t);
circle (x,y,r);
floodfill(x,y,clred);
x:=x+1;
end;
while y>q+r  do
begin
delay(15);
      clearwindow;
rectangle(q,w,e,t);
circle (x,y,r);
      floodfill(x,y,clblue);
      x:=x-2;
      Y:=y-1;
     end;
  while x>q+r do
     begin
     delay(15);
      clearwindow;
rectangle(q,w,e,t);
circle (x,y,r);
          floodfill(x,y,clred);
     x:=x-1;
       end;
rectangle(q,w,e,t);
circle (x,y,r);
floodfill(x,y,clred);
 Textout(70,70,'stop')
                
end.

[Aleksandr H.]

попробуй заменить круг
circle (x,y,r);
на квадрат
rectangle(x-(r div 2),y-(r div 2),x+(r div 2),y+(r div 2));

[Excellent69]

Работает, спасибо!