Дан текст, каждый символ которого может быть малой буквой

program Project1;
 
const
  (*Множество букв кириллицы и латиницы.*)
  A = ['А'..'Я', 'Ё', 'а'..'п', 'р'..'я', 'ё', 'A'..'Z', 'a'..'z'];
  (*Множество цифр.*)
  D = ['1'..'9'];
  (*Множество знаков.*)
  M = ['+', '-', '*'];
var
  i, CntA, CntD, CntM : Integer;
  S : String;
begin
  repeat
    Writeln('Введите строку:');
    Readln(S);
    CntA := 0;
    CntD := 0;
    CntM := 0;
    for i := 1 to Length(S) do begin
      if S[i] in A then begin
        if (i = 1) or (not (S[i - 1] in A)) then
          Inc(CntA)
        ;
      end else if S[i] in D then begin
        if (i = 1) or (not (S[i - 1] in D)) then
          Inc(CntD)
        ;
      end else if S[i] in M then begin
        if (i = 1) or (not (S[i - 1] in M)) then
          Inc(CntM)
        ;
      end;
    end;
 
    (*Ответ.*)
    Writeln('В ведённой строке обнаружено:');
    Writeln('групп букв: ', CntA, ', групп цифр: ', CntD, ', групп знаков: ', CntM);
    if CntA > CntM then
      Writeln('Групп букв больше, чем групп знаков.')
    else
      Writeln('Групп букв не больше, чем групп знаков.')
    ;
 
    Writeln('Повторить - Enter. Выход - люобй символ + Enter.');
    Readln(S);
  until S <> '';
end.