for <biến đếm>:= <giá trị đầu> to <giá trị cuối> do <câu lệnh>;
-> chuyển:
<biến đếm>:=0;
while (biến đếm) < (giá trị cuối từ vòng lặp for...do) do
begin
< câu lệnh>;
<biến đếm>:=<biến đếm>+1;
end;
For <biến đếm>:= <giá trị đầu> to <giá trị cuối> do <câu lệnh>;
=>Chuyển thành:
<biến đếm>:=0;
while (biến đếm) < (giá trị cuối từ vòng lặp for...do) do
begin
< câu lệnh>;
<biến đếm>:=<biến đếm>+1;
end;