Напишите программу, сортирующую символы введенной с клавиатуры строки в порядке возрастания их номеров в ASCII-таблице. Например, если введено: ‘CBA’, в результате надо получить ‘ABC’ — Pascal(Паскаль)

uses crt;
var st:string;
i,j:integer;
ch:char;
 
begin
 clrscr;
 write('-> ');
 readln(st);
 for i:=1 to length(st) do
 for j:=1 to length(st)-1 do
 if st[j]>st[j+1] then
 begin
  ch:=st[j];
  st[j]:=st[j+1];
  st[j+1]:=ch;
 end;
 writeln(st);
 readln;
end.