var x: Real; begin x:=0.0; While(x < 5.2) do begin /// твои действия в цикле... inc(x, 0.1); // увеличиваю x на 0,1 end;