Текстовый файл, простая задачка) Опции

[-SOKOL-]

Здравствуйте, вообщем нужно сделать задачу:
В текстовом файле содержатся цифры (без пробелов), нужно найти количество чисел в каждой строке и посчитать сумму чисел каждой строки. Проблема во втором пункте, никак не получается посчитать сумму чисел-жалуется на типы файлов... вот то что сделал:

program lolo;
uses crt;
var
fil:text; 
s:string;
begin    clrscr;
assign(fil,'lol.txt');
reset(fil);
while not eof(fil) do begin
readln (fil,s);
writeln ('Количество чисел в строке=',length(s));
end;
readln;
close(fil);
end.

[klem4]

 acc := 0;
  for i := 1 to length(s) do
    acc := acc + ord(s[i]) - 48;