работа с текстовыми файлами

[Stilet]

 
c:=0;
  while not eof(f) do
     begin
       readln(f,line); s:=''
       for i:=length(line) downto 1 do begin
         if not (line[i] in ['0'..'9']) then break; s:=line[i]+s;
       end;
       val(s,a,b);  if b=0 then c:=c+a;
     end;
write('Всего ',c,' кг.');