"Круги на воде"

uses graphABC;
//Круги на воде 
const r: array [1..10] of byte=(0,0,0,0,8,8,0,0,0,0);
      g: array [1..10] of byte=(160,145,137,127,121,121,127,137,145,160);
      b: array [1..10] of byte=(227,203,189,135,167,167,135,189,203,227);
var x,y: integer;
 
procedure Krug (rr: integer); // рисование кругов
begin
setbrushcolor(rgb(r[1],g[1],b[1]));
for i:integer:=1 to 10 do
    begin
    setpencolor(rgb(r[i],g[i],b[i]));
    if rr div 100<2 then setpenwidth(10)
       else setpenwidth(10*(rr div 100));
    circle(x,y,rr-(i*8));
    end;
end;
 
procedure step(k: integer); //Процедура инициализации кругов
begin
var j:integer;
for i:integer:=1 to 250 do
    begin
    j:=i;
    if k=2 then j:=251-i; //Круги уменьшаются
    Krug (j*3);
    Krug (j*2);
    sleep(10);
    Krug (j);
    sleep(10); 
    redraw;     
    end;    
end;
 
begin
lockdrawing;
setwindowsize(500,500); 
clearwindow(rgb(r[1],g[1],b[1]));
repeat             //Бесконечный цикл
x:=random(50,450); //Случайные координаты центра кругов
y:=random(50,450);
for k:integer:=1 to 2 do
step(k);  
until false;
end.