Написать программу через цикл for

uses GraphABC;
 
begin
  for var i := 1 to 3 do
    for var j := 1 to 3 do
    begin
      Circle(50 * i, 50 * j, 22)
    end;
  
end.

uses GraphABC;
procedure ris(x,y,r:integer);
var r1:integer;
begin
Brush.Style:=bsClear;  
Circle(x,y,r);
r1:=r div 7;
Brush.Style:=bsSolid;
Brush.Color:=clBlack;
Circle(x-2*r1,y,r1);
Circle(x+2*r1,y,r1);  
end; 
var r,d:integer;
begin
repeat
write('Введите радиус окружностей от 20 до 100 r=');
readln(r);
until r in [20..100];
d:=10;
Setwindowsize(6*r+4*d,6*r+4*d);
Centerwindow;
Clearwindow;
for var i := 1 to 3 do
for var j := 1 to 3 do
ris(j*d+(2*j-1)*r,i*d+(2*i-1)*r,r)
end.

uses GraphABC;
procedure ris(x,y,r,i,j:integer);
var r1:integer;
begin
Brush.Style:=bsClear;  
Circle(x,y,r);
r1:=r div 7;
Brush.Style:=bsSolid;
Brush.Color:=clBlack;
if odd(i+j) then
 begin
  Rectangle(x-2*r1-r1,y-r1,x-2*r1+r1,y+r1);
  Circle(x+2*r1,y,r1);  
 end
else
 begin
  Circle(x-2*r1,y,r1);
  Rectangle(x+2*r1-r1,y-r1,x+2*r1+r1,y+r1);
 end  
end; 
var r,d:integer;
begin
repeat
write('Введите радиус окружностей от 20 до 100 r=');
readln(r);
until r in [20..100];
d:=10;
Setwindowsize(6*r+4*d,6*r+4*d);
Centerwindow;
Clearwindow;
for var i := 1 to 3 do
for var j := 1 to 3 do
ris(j*d+(2*j-1)*r,i*d+(2*i-1)*r,r,i,j)
end.