Для While уже есть.

Для for:

var i: integer;

begin

for i:=1 to 10 do writeln(i)

end.

Для repeat:

var i: integer;

begin

i:=1;

repeat

writeln(i);

i:=i+1;

until i>10

end.