[Al-x]

Попробуй объявить файловую переменную так:

var f        : text;

А после чтения из файла процедурой val() приводить к числу.

UPD: По идее так должно работать:

program num;
var a,code:integer;
f:Text;
buf:string;

begin
 assign(f,'d:\input.dat');
 reset(f);
 readln(f,s);
 val(s,a,code);
end.