только тогда еще при считывании посленей строки надо учитывать что будет сичтываться текст,и надо будет отделить надпись "номер" от цифры.
в данном случае используется пробел,можно функцией pos
Код:
var s:string;
...
ReadLn(f,s);
i:=StrToInt (Copy(s,Pos(' ',s)+1,length(s)) );//копируем S с конца пробела и до конца строки