Хаотичное движение четырех прямоугольников - Turbo Pascal

Формулировка задачи:

Ребят прошу помогите плз написать программу..... Есть 4 прямоугольника, нужно заставить их хаотически двигаться...как это сделать? Вот код

uses crt, graph;
 var
     gd,gm, errcode: integer;
     i: integer;
Procedure Draw;
 Begin
 {ЏҐаўл© Їап¬®гЈ®«м*ЁЄ} {‚в®а®© Їап¬®гЈ®«м*ЁЄ}
  line(10,20,10,180);    Line(350,20,350,180);
  Line(25,18,270,18);    Line(365,18,610,18);
  Line(270,18,270,180);  Line(610,18,610,180);
  Line(10,180,255,180);  Line(350,180,595,180);
 
 {’аҐвЁ© Їап¬®гЈ®«м*ЁЄ} {—ҐвўҐавл© Їап¬®гЈ®«м*ЁЄ}
  Line(10,300,10,460);   Line(350,300,350,460);
  Line(25,300,270,300);  Line(365,300,610,300);
  Line(270,300,270,460); Line(610,300,610,460);
  Line(10,460,255,460);  Line(350,460,595,460);
  {Џа®аЁб®ўЄ* «Ё*Ё© 1-Ј® «*ЎЁаЁ*в*}

 End;{---------------------------}
BEGIN
 gd:=detect;
 initgraph(gd,gm,'C:\tp7\BGI');
 Setcolor(14);
 Draw;
 Readkey;
 
 Closegraph;
END.

Решение задачи: «Хаотичное движение четырех прямоугольников»

Листинг программы

for i:=1 to 25 do
 begin
  cleardevice;
  x:=1+random(getmaxX-w-15);
  y:=1+random(getmaxY-h);
  rect(x,y,9);
  first(x,y,9);
  x:=1+random(getmaxX-w-15);
  y:=1+random(getmaxY-h);
  rect(x,y,10);
  second(x,y,10);
  x:=1+random(getmaxX-w-15);
  y:=1+random(getmaxY-h);
  rect(x,y,11);
  three(x,y,11);
  x:=1+random(getmaxX-w-15);
  y:=1+random(getmaxY-h);
  rect(x,y,12);
  Four(x,y,12);
  delay(500);
 end;

Объяснение кода листинга программы

cleardevice; — очищает экран
x:=1+random(getmaxX-w-15); — генерирует случайное значение для переменной x в диапазоне от getmaxX минус w плюс 15 до getmaxX
y:=1+random(getmaxY-h); — генерирует случайное значение для переменной y в диапазоне от getmaxY минус h плюс 1 до getmaxY
rect(x,y,9); — рисует прямоугольник с координатами x, y и размером 9
first(x,y,9); — функция, которая выполняет действия для первого прямоугольника
x:=1+random(getmaxX-w-15); — генерация случайного значения для переменной x
y:=1+random(getmaxY-h); — генерация случайного значения для переменной y
rect(x,y,10); — рисует прямоугольник с координатами x, y и размером 10
second(x,y,10); — функция, которая выполняет действия для второго прямоугольника
x:=1+random(getmaxX-w-15); — генерация случайного значения для переменной x
y:=1+random(getmaxY-h); — генерация случайного значения для переменной y
rect(x,y,11); — рисует прямоугольник с координатами x, y и размером 11
three(x,y,11); — функция, которая выполняет действия для третьего прямоугольника
x:=1+random(getmaxX-w-15); — генерация случайного значения для переменной x
y:=1+random(getmaxY-h); — генерация случайного значения для переменной y
rect(x,y,12); — рисует прямоугольник с координатами x, y и размером 12
Four(x,y,12); — функция, которая выполняет действия для четвертого прямоугольника
delay(500); — задержка в 500 миллисекунд
end; — завершение программы