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

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