Дана строка, содержащая текст, включающий русские и английские слова. Подсчитать, каких букв в тексте больше – русских или латинских. Pascal

Объяснение:

var

s: string;

m,l: set of char;

i: integer;

n: integer;

k: integer;

begin

readln(s);

m:= ['А'..'Я','а'..'я','Ё','ё'];

l:= ['A'..'Z','a'..'z'];

for i:=1 to length(s) do

if s[i] in m then inc(n);

if s[i] in l then inc(k);

if n>k then write('Русских букв больше!');

if k>n then write('Латинских букв больше!');

if n=k then write('Русских и латинских букв поровну!');

end.

Можно лучший ответ ?