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

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

program alfavit;
var
  buk: set of 'А'..'Я';
  s: string;
  i: integer;
  c: char;
 
begin
writeln ('Введите текст');
  readln(s);
  for i := 1 to length(s) do
  begin
    s[i] := upcase(s[i]); include(buk, s[i])
  end;
  for c := 'А' to 'Я' do if c in buk then write(c:5);
  readln
end.

const alf:string[66]='АаБбВвГгДлЕеЁёЖжЗзИиЙйКкЛлМмНнОоПп'+
                     'РрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯя';
var s:string;
    i,k:byte;
begin
writeln('Введите текст');
readln(s);
k:=0;
for i:=1 to 66 do
if pos(alf[i],s)>0 then
 begin
  k:=1;
  write(alf[i]);
 end;
if k=0 then write('Русских букв нет')
end.

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 255 Do
    if Arr[i] <> 0 Then Begin
       write(chr(i));
       inc(p);
    End;
    
  If (p=0) then Writeln('Русских букв нет');
  
End.

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.