Графика: Движение точки вокруг квадрата

uses graphabc,crt;
var g,i,b:integer;
begin
setwindowsize(1000,1000);
  LockDrawing;
  for g:=450 to 600 do
  begin
 clearWindow;
    Rectangle (400,400,250,250);
    SetBrushColor(clblack);
    circle(i,g,50);
    Redraw;
    Sleep(1);
  end;
  for i:=100 to 500 do
  begin
  clearwindow;
  Rectangle (400,400,250,250);
    SetBrushColor(clblack);
    circle(g,i,20);
    redraw;
    sleep(1);
    end;
    for b:=100 to 500 do
    begin
 clearWindow;
    Rectangle (400,400,250,250);
    SetBrushColor(clblack);
    circle(b,g,20);
    Redraw;
    Sleep(1);
end;
end.

uses graphabc,crt;
var a,b,c,d,xc,yc,h,m,z,x,y:integer;
begin
repeat
writeln('Введите значения a,b,c>0:');
readln(a,b,c);
until(a>0)and(b>0)and(c>0);
clrscr;
hidecursor;
setwindowsize(500,500);
d:=5; //размер дома
h:=1; //шаг движения
//определим масштаб для рисования
if c-a<=d then z:=d+a
else z:=c;
if z>=d+b then m:=round((windowwidth-60)/z)
else m:=round((windowwidth-60)/(d+b));
//определим положение юго-восточного угла бома
xc:=30+m*d;
if c-a<=d then yc:=30+m*d
else yc:=30+m*(c-a);
x:=xc;
y:=yc;
//не юг
while y<=yc++m*a do
 begin
  lockdrawing;
  ClearWindow(clBlack);
  setpencolor(clWhite);
  setpenwidth(3);
  line(xc-m*d,yc-m*d,xc,yc-m*d);
  line(xc-m*d,yc,xc,yc);
  setpencolor(clBlue);
  line(xc-m*d,yc-m*d,xc-m*d,yc);
  line(xc,yc-m*d,xc,yc);
  setpencolor(clRed);
  circle(x,y,5);
  floodfill(x,y,clRed);
  setpencolor(clRed);
  setpenwidth(1);
  setpenstyle(psDot);
  line(xc,yc,x,y);
  redraw;
  sleep(10);
  y:=y+h;
 end;
// на восток
while x<=xc+m*b do
 begin
  lockdrawing;
  ClearWindow(clBlack);
  setpencolor(clWhite);
  setpenwidth(3);
  line(xc-m*d,yc-m*d,xc,yc-m*d);
  line(xc-m*d,yc,xc,yc);
  setpencolor(clBlue);
  line(xc-m*d,yc-m*d,xc-m*d,yc);
  line(xc,yc-m*d,xc,yc);
  setpencolor(clRed);
  circle(x,y,5);
  floodfill(x,y,clRed);
  setpencolor(clRed);
  setpenwidth(1);
  setpenstyle(psDot);
  line(xc,yc,xc,yc+m*a);
  line(xc,yc+m*a,x,y);
  redraw;
  sleep(5);
  x:=x+h;
 end;
//на север
while y>=yc-m*c+m*a do
 begin
  lockdrawing;
  ClearWindow(clBlack);
  setpencolor(clWhite);
  setpenwidth(3);
  line(xc-m*d,yc-m*d,xc,yc-m*d);
  line(xc-m*d,yc,xc,yc);
  setpencolor(clBlue);
  line(xc-m*d,yc-m*d,xc-m*d,yc);
  line(xc,yc-m*d,xc,yc);
  setpencolor(clRed);
  circle(x,y,5);
  floodfill(x,y,clRed);
  setpencolor(clRed);
  setpenwidth(1);
  setpenstyle(psDot);
  line(xc,yc,xc,yc+m*a);
  line(xc,yc+m*a,xc+m*b,yc+m*a);
  line(xc+m*b,yc+m*a,x,y);
  redraw;
  sleep(5);
  y:=y-h;
 end;
end.