[Ildar-tsr]

Сообщение от Snake22

только тогда еще при считывании посленей строки надо учитывать что будет сичтываться текст,и надо будет отделить надпись "номер" от цифры.
в данном случае используется пробел,можно функцией pos

Код:

var s:string;
...
ReadLn(f,s);
i:=StrToInt (Copy(s,Pos(' ',s)+1,length(s)) );//копируем S с конца пробела и до конца строки

Ну давай тогда окончательно до ума доводить:

Код:

i:=StrToInt (Copy(s,Pos(' ',s)+1,length(s)-pos(' ',s)) );