Написать программу, выводящую на экран случайным образом движущиеся прямоугольники - Pascal ABC

uses GraphABC;
type rect=record
          x,y,a,b,cv,dx,dy:integer;
          end;
const n=10;
var a:array[1..n] of rect;
    i:byte;
begin
randomize;
for i:=1 to n do
with a[i] do
 begin
  a:=10+random(20);
  b:=10+random(20);
  x:=a+random(windowwidth-2*a);
  y:=b+random(windowheight-2*b);
  cv:=clrandom;
  dx:=1+random(5);
  dy:=1+random(5);
 end;
lockdrawing;
repeat
clearwindow;
for i:=1 to n do
with a[i] do
 begin
  setpencolor(cv);
  setbrushcolor(cv);
  rectangle(x-a,y-b,x+a,y+b);
 end;
sleep(10);
for i:=1 to n do
 with a[i] do
  begin
   if (x+a>windowwidth)or(x-a<0) then dx:=-dx;
   if (y+b>windowheight)or(y-b<0) then dy:=-dy;
   x:=x+dx;
   y:=y+dy;
  end;
redraw;
until false;
end.