Дана строка, содержащая латинские буквы, русские буквы и цифры. Подсчитать количество русских букв и цифр в данной строк

Var i,p,q,k:integer;
    s:string;
Begin
    write('Введите строку: ');
    readln(s);
    p:=0;q:=0;k:=0;
    For i:=1 to Length(s) do
     Begin
      if s[i] in ['a'..'z','A'..'Z'] then inc(p);
      if s[i] in ['а'..'я','А..Я'] then inc(q);
      if s[i] in ['0'..'9'] then inc(k);
     End;
    if q<>0 then writeln('Русских букв: ',q) else writeln('В строке нету русских букв');
    if p<>0 then writeln('Английских букв: ',p) else writeln('В строке нету английских букв');
    if k<>0 then writeln('Цифр: ',k) else writeln('В строке нету цифр');
end;
break;
if (p>q) and (p>k) then begin
writeln ('Латинских букв больше всех'); 
else 
if (q>p) and (q>k) then
writeln ('Русских букв больше всех');
else
writeln ('Цифр больше всех');
End.

## var IsRus, IsEng, IsDig: char->boolean;
 
IsRus := ch->
// 'ё' не находится в диапазоне 'а'..'я'
(ch in 'а'..'я') or (ch in 'А'..'Я') or (ch in 'ёЁ');
 
IsEng := ch->
(ch in 'a'..'z') or (ch in 'A'..'Z');
 
IsDig := ch->
ch in '0'..'9';
 
var res := Arr(
  new class(c := 0, check := IsRus, name:='русских'),
  new class(c := 0, check := IsEng, name:='английских'),
  new class(c := 0, check := IsDig, name:='цифр')
);
 
foreach var ch in ReadString do
  foreach var o in res do
    o.c += integer(o.check(ch));
 
var max := res.Max(o->o.c);
'Больше всего:'.Println;
foreach var o in res do
  if o.c=max then
    o.name.Println;

foreach var o in res do
  if o.c<>0 then
    $'{o.c} {o.name}'.Println;