Напечатать сначала все русские буквы - Pascal

Формулировка задачи:

Напечатать сначала все русские буквы, входящие в текст, а затем все латинские буквы, сохраняя при этом взаимное расположение литер в каждой из этих двух групп. В какой из групп литер больше? Помогите срочно нужно очень

Решение задачи: «Напечатать сначала все русские буквы»

Листинг программы

var s: string;
    i, rus, lat: integer;
begin
  writeln('Введите строку, содержащую русские и латинские буквы:');
  readln(s);
  writeln('Русские буквы:');
  rus := 0;
  for i := 1 to length(s) do
    if s[i] in ['А'..'Я', 'а'..'п', 'р'..'я', 'Ё', 'ё']
      then begin
        write(s[i]);
        inc(rus)
      end;
  if rus = 0
    then writeln('<Не найдены>')
    else writeln;
  writeln('Латинские буквы:');
  lat := 0;
  for i := 1 to length(s) do
    if s[i] in ['A'..'Z', 'a'..'z']
      then begin
        write(s[i]);
        inc(lat)
      end;
  if lat = 0
    then writeln('<Не найдены>')
    else writeln;
  if rus > lat
    then writeln('Русских букв больше.')
    else if lat > rus
      then writeln('Латинских букв больше.')
      else writeln('Русских и латинских букв поровну.');
  readln
end.

Объяснение кода листинга программы

Объявляется переменная s типа string для хранения введенной строки.
Объявляются переменные i, rus и lat типа integer для хранения индекса, количества русских и латинских букв соответственно.
Выводится запрос на ввод строки, содержащей русские и латинские буквы.
Вводится строка и сохраняется в переменной s.
Выводится сообщение Русские буквы:.
Устанавливается значение переменной rus в 0.
Создается цикл, который проходит по всем символам в строке s.
Если текущий символ находится в диапазоне русских букв, то он выводится и увеличивается счетчик rus.
Если русские буквы не найдены, выводится сообщение <Не найдены>.
Выводится сообщение Латинские буквы:.
Устанавливается значение переменной lat в 0.
Создается цикл, который проходит по всем символам в строке s.
Если текущий символ находится в диапазоне латинских букв, то он выводится и увеличивается счетчик lat.
Если латинские буквы не найдены, выводится сообщение <Не найдены>.
Сравниваются количества русских и латинских букв.
Выводится сообщение о том, какой тип букв встречается чаще.
Программа ожидает ввода пользователя для завершения. Код проверяет введенную строку на наличие русских и латинских букв, подсчитывает их количество и выводит соответствующие результаты.