Народ скажите пожалуйста по какой причине моя программа рисует столб только в одну сторону?

uses graphabc;
label m, m2, m3;
var i, f: integer;
begin
f:=1;
m:
if f=244 then goto m2;
i:=i+1;
circle(i, i, 10);
sleep(100);
f:=f+1;
goto m;
f:=1;
m2:
if f=244 then goto m3;
i:=i+100;
circle(i, 100, 100);
sleep(100);
f:=f+1;
goto m2;
m3:
end.
#ПаскальАбс #ПаскальАбсНэт