Во введенной строке символов получить количество букв, цифр, слов

var
   s: string;
   i, rus, eng, cifr, slov, predl: integer;
   
begin
  writeln('Введите строку');
  readln(s);
  rus := 0;
  eng := 0;
  cifr := 0;
  slov := 0;
  predl := 0;
  for i := 1 to length(s) do
    begin
      if s[i] in ['а'..'я','А'..'Я','ё','Ё']
        then inc(rus)
        else if s[i] in ['a'..'z','A'..'Z']
               then inc(eng)
               else if s[i] in ['0'..'9']
                      then inc(cifr)
                      else if s[i] = ' '
                             then inc(slov)
                             else if s[i] = '.'
                                    then inc(predl)
    end;
  writeln('В строке ',rus,' русских букв(а/ы)');
  writeln('В строке ',eng,' английских букв(а/ы)');
  writeln('В строке ',cifr,' цифр(а/ы)');
  writeln('В строке ',slov,' слов(о/а)');
  writeln('В строке ',predl,' предложений(ие/ия)');
end.