Подсчитать в предложении количество слов, содержащих цифры

const d=['0'..'9'];
var s:string; i,k:integer;
begin
setconsolecp(1251);
setconsoleoutputcp(1251);
writeln('Введите строку: ');
readln(s);
for i:=1 to length(s) do
if((i=1)and(s[i]<>' '))or(s[i-1]=' ') then
if s[i] in d then Inc(k);
writeln('Количество слов, содержащих цифры: ',k);
readln
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Windows;
 
const
  //Разделители слов.
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
  //Множество десятичных цифр.
  Dd = ['0'..'9'];
var
  S : String;
  i, Len, Cnt : Integer;
  F : Boolean;
begin
  //Переключение окна консоли на кодовую страницу CP1251 (Win-1251).
  //Если после переключения русские буквы показываются неверно,
  //следует открыть системное меню консольного окна - щелчком мыши в левом
  //верхнем углу окна консоли и выбрать:
  //Свойства - закладка "Шрифт" - выбрать шрифт: "Lucida Console".
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  repeat
    Writeln('Задайте строку:');
    Readln(S);
 
    Len := Length(S);
    //Флаг, показывающий - есть ли в слове цифры.
    F := False;
    //Количество слов, содержащих цифры.
    Cnt := 0;
    for i := 1 to Len do begin
      //Если символ не является разделителем.
      if not (S[i] in D) then begin
        //Отслеживаем цифры в очередном слове.
        if S[i] in Dd then F := True;
        //Отслеживаем конец слова и выполняем подсчёт.
        if (i = Len) or (S[i + 1] in D) then begin
          if F then Inc(Cnt);
          F := False;
        end;
      end;
    end;
 
    //Ответ.
    Writeln('Количество слов, содержащих цифры: ', Cnt);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.