Var
Rus: set of 'А'..'Я';
Lat: set of 'A'..'Z';
nLat, nRus, i: integer;
s: string;
begin
Write('Введите текст: ');
Readln(s);
nRus := 0; nLat := 0;
Rus := ['А'..'Я'];
Lat := ['A'..'Z'];
for i := 1 to Length(s) do
if (s[i] in Rus) then nRus := nRus + 1
else if (s[i] in Lat) then nLat := nLat + 1;
if nRus > nLat then Writeln('Русских букв больше, чем латинских')
else if nRus = nLat then Writeln('Русских и латинских букв поровну')
else Writeln('Латинских букв больше, чем русских')
end.
Тестовое решение:
Введите текст: ТАКАЯ VOT STRAННАЯ ЗАДА4А NAM ПОПАЛAC6 !!!
Русских букв больше, чем латинских