Работа с файлами Опции

[FENIX]

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

Пример: для 12345 - 5, 846 - 3.
Помогите, плиз

[volvo]

FENIX
Тогда так:

Код

var
fin: file of char; fout: text;
ch: char; count: integer;

begin
  assign(fin, 'input.txt');
  {$i-}reset(fin);{$i+}
  assign(fout, 'output.txt');
  {$i-}rewrite(fout);{$i+}

  count := 0;
  while not eof(fin) do
    begin
      read(fin, ch);
      if ch in ['0' .. '9'] then inc(count)
      else
        if count > 0 then
          begin
            writeln(fout, count);
           {если нужно результаты в строку: write(fout, count, ' ');}
            count := 0
          end;
    end;
  close(fout);
  close(fin)
end.