Напечатать сначала все русские буквы - 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.