Разделить слова строки на идентификаторы, целые десятичные числа со знаком, и остальные слова

const
  Lt = ['A'..'Z', 'a'..'z']; //множество букв
  Dg = ['0'..'9']; //множество цифр
  Sg = ['+', '-']; //множество знаков
var
  c, b, p, i, n, w, k: integer; //количество цифр, букв и прочих на слово, количество идентификаторов, чисел и слов, счётчик
  s, t: string; //строка, буфер
begin
  {c := 0; b := 0; p := 0; i := 0; n := 0; w := 0; t := '';}
  readln(s); //читаем строку
  s := s + ' '; //добавляем пробел для удобства
  for k := 1 to length(s) do //цикл просмотра символы строки
    if s[k] = ' ' then //если символ строки пробел,
      begin //то
        if length(t) > 0 then //если есть слово,
          if (t[1] in Lt) and (p = 0) then inc(i) //то, если идентификатор, то i+1
          else //иначе
            if (b = 0) and (c > 0) and ((t[1] in Dg) and (p = 0) or (t[1] in Sg) and (p = 1)) then inc(n) //если число, то n+1
            else inc(w); //иначе w+1
        c := 0; b := 0; p := 0; t := '' //сбрасываем счётчики цифр, букв и остального, и стираем буфер
      end
    else //иначе (если символ строки не пробел)
      begin
        t := t + s[k]; //добавляем символ в буфер
        if s[k] in Dg then inc(c) //если символ цифра, то c+1
        else //иначе,
          if s[k] in Lt then inc(b) //если символ буква, то b+1
          else inc(p) //иначе p+1
      end;
  writeln('Идентификаторов: ', i); //Печатаем результат
  writeln('Чисел: ', n);
  writeln('Слов: ', w)
end.