Сортировка пузырьком символов строки по их кодам

Задача. Ввести строку из n символов латинского алфавита (n<30). Расположить их по алфавиту.
Решение. Воспользуемся тем, что буквы латинского алфавита 'A' – 'Z', 'a' –'z' имеют коды, значения которых возрастают. При этом для решения задачи можно применять алгоритм сортировки "пузырьком".

Program Sorts;
var
s : string;
sr : char;
n, i, k : integer;
Begin
writeln('Введите строку');
readln(s);
n := length(s);
for k := 1 to n-1 do
for i := 1 to n-k do
if s[i]>s[i+1]then
begin
sr :=s[i];
s[i] := s[i+1];
s[i+1] := sr;
end;
writeln('Строка с упорядоченными символами:');
writeln(s);
End.