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.

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.

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.