[chainik]

Несколько странно выглядят эти строки
S:=m+1.00234;
SMout.Write(m,sizeOf(Real));
Может быть все- таки так:

Код:

   S:=m+1.00234;
   SMout.Write(S,sizeOf(Real));