Алфавитный порядок, Объясните простую задачку Опции

[annna]

Есть задачка(напечатать в алфавитном порядке все строчные буквы, входящие в интервал из 100 литер), но не могу понять ,как они упорядываются...

Код

program lab10_1;
var st:string;
i,j:integer;
begin
writeln('Enter small letters');
readln(st);
for i:=1 to 322 do    {???}
for j:=1 to 100 do
if ord(st[j])=i then
write (st[j]);
readln;
end.

Добавление: просто вводишь латинские буквы в разброс, а программа их упорядычивает по алфавиту(вот такие мы ,химики неграмотные )

Сообщение отредактировано: annna - 28.09.2004 0:02

[GoodWind]

Код

uses crt;

var str:string;

function sort(in_st:string):string;
var i,j:byte;
   ch:char;
begin
for i:=1 to length(in_st) do
begin
 for j:=1 to length(in_st) do
  begin
   if ord(in_st[j])>ord(in_st[i]) then
    begin
    ch:=in_st[i];
    in_st[i]:=in_st[j];
    in_st[j]:=ch;
    end;
  end;
end;
sort:=in_st;
end;

begin
clrscr;
write('Введите строку строчных латинских букв: ');readln(str);
writeln(sort(str));
readkey;
end.

-----
здесь все в строке сделано.

а упорядочиваются они в соответствии с ASCII кодом буквы,
тоесть у буквы b ASCII код больше ASCII кода буквы a
-----
всё, я спать пошел - у нас час ночи

Сообщение отредактировано: GoodWind - 28.09.2004 0:57