Вывести в алфавитном порядке все встречающиеся русские буквы. - Pascal ABC

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

Дан текст.Вывести в алфавитном порядке все встречающиеся в нем русские буквы. Задача дана для Паскаля авс. Не могу сообразить,как запрограммировать поиск букв.Надо использовать оператор string

program alfavit
var s:string;
    c:char;
    n,i,k,p:byte;
begin
 
writeln('Введите текст, окончаание ввода Enter');
s:='';
repeat
 
if c in ['а'..'я']

Решение задачи: «Вывести в алфавитном порядке все встречающиеся русские буквы.»

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

Program task6;
Var Stri  : String;
Var Arr   : Array[1..255] of integer;
Var i,k,p : integer;
Begin
  write('Введите строку: ');
  readln(Stri);
  for i:=1 to length(Stri) Do Begin
      k:=Ord(Stri[i]);
      inc(Arr[k]);
  End;
  p:=0;
  For i:=192 to 223 Do Begin
    if Arr[i] <> 0 Then Begin
       write(chr(i));
       inc(p);
    End;
    if Arr[i+32] <> 0 Then Begin
       write(chr(i+32));
       inc(p);
    End;
  End;
  If (p=0) then Writeln('Русских букв нет');
End.

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

Этот код написан на языке Pascal ABC и выполняет следующую задачу: выводит в алфавитном порядке все встречающиеся русские буквы в заданной строке.

Строка вводится с помощью функции readln().
В цикле for перебираются все символы в строке.
Для каждого символа вычисляется его порядковый номер с помощью функции Ord().
Если символ является русской буквой, то значение этого символа добавляется в массив Arr.
После завершения цикла for, происходит проверка: если в массиве Arr есть хотя бы один ненулевой элемент, то выводится символ, соответствующий этому элементу, и увеличивается счетчик p.
Далее, в цикле for перебираются все символы от 192 до 223 (это коды русских букв в таблице ASCII).
Если для текущего символа значение в массиве Arr не равно нулю, то выводится этот символ и увеличивается счетчик p.
Если для следующего символа значение в массиве Arr равно нулю, то выводится символ, соответствующий этому элементу, и увеличивается счетчик p.
Если для следующего символа значение в массиве Arr не равно нулю, то выводится этот символ и увеличивается счетчик p.
В конце программы выводится сообщение: Русских букв нет, если все символы были проверены и не было найдено ни одной русской буквы. Таким образом, данный код выводит все встречающиеся русские буквы в алфавитном порядке.