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