Alfavit.PAS

{* Сортировка букв по алфавиту *}

Unit ALFAVIT;
Interface
Implementation
Begin
 writeln('Программа сортирует буквы исходного слова в алфавитном порядке');
End.

0 0
Program Alfavit;

Uses Alfavit.pas; {* Эту строку можно удалить *}
0 0   0 0
Uses Crt; {* Подключаем внешние файлы *}
0 0
Var {* В работе нам потребуются переменные: *}
  0 0   st : String;
  0 0   ch : char;
  0 0   n  : byte;
  0 0   i  : byte;
  0 0   j  : byte;
Begin
  0 0   ClrScr; {* Очищаем экран *}
  0 0   Write('Введите слово :> ');
  0 0   Readln(st);
  0 0   Writeln; {* Пропускаем одну строку *}
  0 0   Writeln ('Исходное слово - ', st);
  0 0   n := length(st); {Находим размер исходного слова}
  1 0
  For i := 1 To n - 1 Do {* Цикл для i => [1 .. n] *}
    0 1     {отсортировываем буквы по алфавиту}
  1 1
  For j := i + 1 To n Do
    1 2
  If st[i] > st[j] Then
    0 3
    Begin
      0 0     ch := st[i];
      0 0     st[i] := st[j];
      0 0     st[j] := ch;
      0 2
    End;
  0 1     Writeln ('Буквы исходного слова, отсортированные в алфавитном порядке - ', st);
  0 0   ReadKey; {Ожидание нажатия на клавишу}
End.