Переход от 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;
........

[volvo]

Извращение, конечно, но... Сам просил:

const
  maxIter = 100; { можешь поменять... }
Var
  x,eps,U,Un:Real; 
  a:Byte;
  stop: boolean;
...
U := 1; a := 2; Un := U*Cos(x/a);
stop := False;
for i := 1 to maxIter Do
  If not stop Then Begin
    U := Un; Un := U*Cos(x/a);
    a := a*2;

    { Как только stop станет равным True, остаток цикла пройдет вхолостую... }
    stop := (Abs(Un - U) < eps);
  End;
...