Здравствуйте, AlexRK, Вы писали:

ARK>

ARK>program ideone;
ARK>var
ARK>    A: Real;
ARK>    B: Integer;
ARK>begin
ARK>    A := 33;
ARK>    B := A;
ARK>    Write(B);
ARK>end.
ARK>

ARK>
Нужно наоборот — присвоить integer к float'y. При этом возможна потеря точности, если integer достаточно большой.