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

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