Строки Опции

[-Rudolf-]

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

Код

Program A7;
var c:char;
    st1:string[5];
    m,i,j:Integer;
Begin
      readln(st1);
      for i:=5 downto 2 do
      begin
      m:=1;
       for j:=2 to i do
        if ord(st1[i])>=ord(st1[m]) then m:=j;
      c:=st1[i];st1[i]:=st1[m];st1[m]:=c;
      end;
      writeln(st1);
      readln;
end.

[-Rudolf-]

Иправил алгоритм, но не знаю как применить его для русских букв:

Код

Program A7;
var st:string[5];
    c: char;
    i,j:integer;
begin
     readln(st);
     for i:=1 to 4 do
        for j:=i+1 to 5 do
          if ord(st[j])<ord(st[i]) then begin
                                         c:=st[j];
                                         st[j]:=st[i];
                                         st[i]:=c;
                                          end;
    writeln(st);
    readln;
end.