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

[Digitalator]

а вот вам супер извращение, по идее должно работать

Код

for i:=1 to 1 do
begin
<делаем что-нить>
if not(<уловие выхода>) then
 begin
   //извращение с указателем т.к.
   //некотрые компиляторы не дают
   //изменять индекс цикла,
   //а так должно сработать
 pi := @i;
 pi^ := 0;
 end;
end;