Дана строка, содержащая текст, включающий русские и английские слова. Подсчитать, каких букв в тексте больше – русских или латинских. 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.

Можно лучший пожалуйста?