{* Сортировка строк по в алфавитном порядке. *}

Unit SORT_STRINGS;
Interface
Implementation
Begin
 writeln('Сортировка строк по в алфавитном порядке.');
End.

Program sort_strings;

Uses sort_strings.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  a     : Array[1..100] Of String;
  i     : integer;
  j     : integer;
  n     : integer;
For i := 1 To n Do; {* Увеличиваем i от 1 до n с шагом 1 *}
  Var {* В работе нам потребуются переменные: *}
    s           : String;
  Begin
For i := 1 To n - 1 Do; {* Цикл для i => [1 .. n] *}
  a[i] := a[j];
a[j] := s;
Procedure out;
Begin
assign(output, 'sort_str.out'); {* Привязка переменной output к файлу 'sort_str.out' *}
rewrite(output); {* Подготовка переменной output для записи в файл *}
For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  writeln(a[i]);
End;
Begin
init;
sort;
out;
End....