Var1:=DELETE(IN_BLOCK,80,9);
Real_var:= STRING_TO_REAL (Var1);
вот я вырезал
вроде всё получилось
Спасибо всем за помощь!!!