Рисование окружностей

[SVadiks]

Ребят помогите пожалуйста!!! (в Pascale)
Нужно нарисовать 2 или 3 окружности (по выбору пользователя)
с введеными им же координатами.
Вот закотовку уже сделал для одной окружности а как сделать чтобы он прорисовывал все мне их сообразить не могу

Program Lab_4;
uses crt, graph;
var
x,y,i,n,d,m,n1:integer;
r:word;
{------------------------------------------------------------------------}
Procedure  vibKol (var n:integer);
begin
repeat {Vvod kol-va okrushnostei}
TextColor (3);
       writeln ('Vvedite kol-vo okrugnostei');
       readln (n); until (n=2) or (n=3);
Writeln
end;
Procedure vvodKor ;     {vvod koorinat}
begin
n1:=1;
for i:=1 to n do begin
writeln ('Vvedite koordinati i radius circle #', n1); n1:=n1+1;
read (x,y,r);   end;
end;
{------------------------------------------------------------------------}
Procedure Circles (x,y:integer; r:word); {risovanie kruga}
         begin
          d := detect;
          initgraph(d,m,'');
          Setcolor(14);
          circle(x,y,r);
          readln;
          end;
{------------------------------------------------------------------------}
BEGIN
ClrScr;
vibkol(n);
VvodKor;
Circles(x,y,r);
readln;
closegraph;
END.

[as345]

program as345;
uses crt, graph;
var gd,gm,i:integer; x[1..3],y[1..3],r[1..3]:array of integer;
begin
gd:=detect;
initgraph(gd,gm,'');
setcolor(14);
ClrScr;
readln(i);
if i=2 then 
readln(x[1],y[1],x[2],y[2])
else
readln(x[1],y[1],x[2],y[2],x[3],y[3]);
ClrScr;
if i=2 then
begin
circle(x[1],y[1],r[1]);
circle(x[2],y[2],r[2]);
end
else
begin
circle(x[1],y[1],r[1]);
circle(x[2],y[2],r[2]);
circle(x[3],y[3],r[3]);
end;
readln
end.