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

[FENIX]

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

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

[volvo]

FENIX
Если входной файл содержит ТОЛЬКО числа - то просто читай их как строки...

Код

var
 fin, fout: text;
 s: string;

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

 while not seekeof(fin) do
   begin
     readln(fin, s);
     writeln(fout, length(s));
   end;
 close(fout);
 close(fin)
end.

Пример входного файла (Input.txt):

123
1234
12345
123456
123
1234
23
33
3
9