Ввести строку из 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.

---