Jak zastapic petle for petla while ?

[faD]

Witam, tak jak w temacie...

Mam program :

var
imie:string;
i:integer;

begin
writeln('Podaj swoje imie : ');
readln(imie);
writeln('Twoj imie to :',imie);
readln;
for i:=1 to 10 do
writeln(i,'.',imie);
readln;
end.

program ten wyswietla imie w taki sposob:

1. imie
2. imie
3. imie
itd....

chodzi o to, jak zastapic pętle FOR TO DO pętlą WHILE DO aby otrzymac to samo co z petla FOR? Szukałem w google ale jakos nic nie moge znalesc...

[kosiarz]

temat troche nie za bardzo pasuje tutaj ale,
schemat petli


while (jakies_zalozenie)
do

end;

[faD]

while (jakies_zalozenie)
do

end;

wiem jak wyglada schemat petli =.= tylko nie wiem jak napisac zeby działa w taki sam sposob jak petla for w tym moim programie :P

[kosiarz]

no to jak znasz schemat to nie rozumiem co Ci nie dziala.

to będzie wyglądało jakoś tak w wersji uproszczonej,

var
i:integer;
begin
i:=0;
while i<10 do
begin
i:=i+1;
writeln('kosiarz');
end;
readln;
end.

[faD]

o.O kurde tak chciałem zrobic ale cos mi mowilo ze zle i nie robiłem poza tym wydawało sie za prote ;d zreszta nie wazne...
Wielki dzieki za pomoc
Pozdrawiam,
Artur