Ошибка в прорисовке карты для игры в танчики

[NSvirus]

Здравствуйте, продолжая тему про игрушку...

Создаю карту, состоящую из нескольких прямоугольников.
Точнее пытаюсь создать, используя следующий код:
----------------------------------------------
setfillstyle(1,yellow);
repeat
randomize;
grvt:=random(2); //выбор метода построения(горизонт или верт)
rndx:=random(270)+70; //коор-та x
rndy:=random(270)+70;//коор-та y
if grvt=0 then
bar(rndx,rndy,rndx+20,rndy+70);
else
bar(rndx,rndy,rndx+70,rndy+20);
qwe:=qwe+1; //наращивание(число прямоугольников)
until qwe=10;
----------------------------------------------
Но этот код имеет ошибку, когда цикл заканчивается при qwe=10, всего - 1 прямоуг-к, когда при qwe=100 их 4, при qwe=800 - их 9 и т.д.

Подскажите, в чем ошибка?

[Sazary]

NSvirus Все просто - randomize нужно вызвать только один раз, в начале программы.