Можете помочь с random в графике Паскаль?

[Jenee]

Необходимо создать окна у дома, но чтобы они меняли цвет в ходе программы очень часто (как на дискотеке))).
Пример дома:

uses crt, graphABC;
var x, z :integer;
begin
setwindowsize(640,480);
setpencolor(clmoneygreen);
rectangle(80,220,280,340);
floodfill(81,222,clmoneygreen);
setpencolor(clblue);
line(80,220,180,140);
line(180,140,280,220);
floodfill(180,200,clblue);
x:=100; z:=random(255);
while (x<260) and (z<>random(255)) do begin
setpencolor(clblack);
rectangle(x,240,x+40,300);
floodfill(x+10,250,z);
line(x+20,240,x+20,300);
z:=random(255)+19;
x:=x+60;
end;
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

что такое "как на дискотеке" не очень понятно.

так устроит?

uses
  crt, graphABC;

var
  x, z: integer;

begin
  setwindowsize(640, 480);
  setpencolor(clmoneygreen);
  rectangle(80, 220, 280, 340);
  floodfill(81, 222, clmoneygreen);
  setpencolor(clblue);
  line(80, 220, 180, 140);
  line(180, 140, 280, 220);
  floodfill(180, 200, clblue);
  while not keypressed do 
  begin
    LockDrawing;
    x := 100;
    while (x < 260) do 
    begin
      z := RGB(Random(256), Random(256), Random(256));
      setpencolor(clblack);
      rectangle(x, 240, x + 40, 300);
      floodfill(x + 10, 250, z);
      line(x + 20, 240, x + 20, 300);
      x := x + 60;
    end;
    Redraw;
    Sleep(100)
  end;
end.