Строки Опции

[-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.