Дан текст, записанный заглавными буквами. Каких букв в нем больше: русских или латинских? Паскалем надо, пжлст

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 !!!Русских букв больше, чем латинских