Schemat blokowy do pętli REPEAT Turbo Pascal POMOCY!

ciemylka

Witam! Mam problem ze schematem blokowym do pewnej części programu.
Bardzo proszę kogoś kto umie go zrobić chociaż na brudno...

To ten fragment:

repeat
for i:=1 to n do
begin
xp[i]:=round(xs+r*cos(alfa)); {Zapisanie w tablicach wszystkich wsp˘ˆrz©dnych X,y}
yp[i]:=round(ys+r*sin(alfa));
alfa:=alfa+krok;
end;

setcolor(Magenta);
setlinestyle(0,0,3); {WyglĄd wielokĄta}

for i:=1 to n do
if i=n then
line(xp[i],yp[i],xp[i-n+1],yp[i-n+1]) {Wyrysowywanie bok˘w wielokĄta}
else
line(xp[i],yp[i],xp[i+1],yp[i+1]);

delay(pred);
setcolor(Black);

for i:=1 to n do
if i=n then
line(xp[i],yp[i],xp[i-n+1],yp[i-n+1]) {Zamazywanie bok˘w poprzedniego wielokĄta}
else
line(xp[i],yp[i],xp[i+1],yp[i+1]);

alfa:=alfa+obrot; {Obr˘cenie wielokĄta o kĄt podany z klawiatury}

until keypressed;

Z góry dziękuję za pomoc:)