Помогите доделать задачку с текстовыми файлами Опции

[chizuru]

Помогите, пожалуйста, с задачей.
Дан текстовый файл (слова разделены не менее как одним пробелом). Найти и вывести в новый файл все слова, в которых есть хотя бы одна цифра. Максимальная длина строки в начальном файле - 255 символов, кол-во строк - как минимум две. Для поиска использовать процедуру или функцию...

Пока у меня столько лишь есть... Теоретически-то вроде понятно, а практически - нет...

 function count (stroka: string) :  string;
  const numbers = ['0'..'9'];
  var 
     i, j: integer;
     word, f: string;
     begin
             while length (stroka) > 0 do 
          begin 
            for i:= 1 to length (stroka) do
               if (word [i] in numbers) then 
     	 
{Вот тут уже не знаю как... }

           end;
end;
  
var f1, f2 :text;
      eil, nach, kon : string;

begin    
     writeln ('vvesti nazvanie isxodnogo fajla');
     readln (nach);
     assign (f1, 'input.txt');
     writeln('vvesti nazvanie vyxodnogo fajla');
     readln (kon);
     assign(f2,'output.txt');

  {$I-}
  reset(f1);
   if (ioresult = 0) then begin
      rewrite(f2);
  {$I+}
      if (ioresult = 0) then begin
              while not eof(f1) do begin
            readln(f1, eil);
            writeln(f2, count(eil));
         end;
      close(f2);
    end
   else writeln('nelzia otkryt fajl rezultatov');
  close(f1);
 end
else writeln ('neudalos otkryt isxodnyj fajl');

[andriano]

Какая-то славянофобская программа, почему она игнорирует кириллицу?