гото в паскале

Такой вопрос. Почему моя программа столб только в одном направлении рисует
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, 500, 10);
sleep(100);
f:=f+1;
goto m2;
m3:
end.