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

[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 - 27.09.2004 20:02

[APAL]

Может так:

Код

program lab10_1;
var st:string;
ch : char;
i,j:integer;
begin
writeln('Enter small letters');
readln(st);
for i:=1 to Length(St)-1 do    
for j:=i+1 to Length(st) do
if st[j]<st[i] then
Begin
  ch:=st[j];
  st[j]:=st[i];
  st[i]:=ch;
End;
For i:=1 to 100 do Write(st[i]);
readln;
end.