Определить количество слов которые служат обозначением числа (содержат только цифры и не более одной точки)

uses
  crt;
  
const
  delimiters: set of char = [#0, #8, #10, #13, #27, ' ', ',', ';', ':', '!', '?', '"', '''']; //Разделители слов ('.' нет!)
  digits: set of char = ['0'..'9']; //цифры
 
var
  c, t: char;
  w: string;
  i, k, cp, cd: integer;
  
begin
  k := 0;
  c := ' ';
  repeat
    t := c; //копируем прошлую клавишу
    c := readkey; //вводим новую
    if c =#13 //если перевод строки,
      then writeln //то переходим на следующую строку
      else write(c); //иначе печатаем символ
    if not(t in delimiters) and (c in delimiters) //если конец слова, 
      then //то
        begin
          cp := 0; //обнуляем счётчик точек
          cd := 0; //и счётчик цифр
          for i := 1 to length(w) do //сканируем слово
            if w[i] = '.' //если точка,
              then inc(cp) то подсчитываем точку
              else if w[i] in digits //иначе, если цифра,
                then inc(cd); //то подсчитываем цифру
          if (cp <= 1) and (cp + cd = length(w)) then inc(k) //если  слово состоит только из цифр и не более чем из одной точки, то это число, подсчитываем число
        end
      else if (t in delimiters) and not(c in delimiters) //иначе, если начало слова,
        then w := c //то стираем старое слово, и записываем в него первый символ
        else if not (t in delimiters) and not (c in delimiters) //иначе, если середина слова,
          then w := w + c //то добавляем к слову очередной символ
  until c = #27; //повторяем до тех пор, пока не встретится <Esc>
  writeln;//переходим на новую строку
  writeln('Найдено чисел: ', k) //и печатаем результат
end.