[friz]

хм... переменные b,c у тебя integer? ну так какого лешего ты хочешь ей присвоить число типа real?
Может надо так?

Код:

b:=strTOint(copy(mess,1,n1-1));
c:=strTOint(copy(mess,n1+1,length(mess)-1));

или так ?

Код:

var
n1:integer;
b,c: real;