Переход от Repeat(или While) к For, Реально ли это? Опции

[bhldr]

По идее когда число повторений неизвестно, For использовать нельзя, но может все-таки как-нибудь можно?
Реально ли перебить этот фрагмент под цикл For?

Var x,eps,U,Un:Real; 
a:Byte; 
.......
U:=1; 
a:=2; 
Un:=U*cos(x/a); 
Repeat 
    U:=Un;
    Un:=U*cos(x/a); 
    a:=a*2 
Until Abs (Un-U)<eps;
........

[Altair]

Позволю себе оффтоп.
Все таки иногда удивляюсь насколько красиво может быть программирование...

for i:=1 to 1 do
begin
<делаем что-нить>
if not(<уловие выхода>) then
begin
  pi := @i;
  pi^ := 0;
end;
end;

еще одна оригинальная конструкция улетает в копилку...
Хотя ИМХО возможно еще по адресное хранения переменный, типа
x: integer absolute i;
тогда

for i:=1 to 1 do
begin
<делаем что-нить>
 if not(<уловие выхода>) then x:=0;
end;

!