Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Сортировка массива строк, Паскаль.

program Task_Str5;

  {задачи на строки паскаль с решением}
  {сортировка массива строк, Паскаль}
const
  n = 8;

var
  i, j: integer;
  s_Str: string;
  s_Words: array[1..n] of string;
begin

  s_Words[1] := 'Деревья';
  s_Words[2] := 'Трава';
  s_Words[3] := 'Песок';
  s_Words[4] := 'Камень';
  s_Words[5] := 'Вода';
  s_Words[6] := 'Небо';
  s_Words[7] := 'Облака';
  s_Words[8] := 'Дерево';

  for i := 1 to n-1 do
    for j := i + 1 to n do
      if s_Words[i] > s_Words[j] then
      begin
        s_Str := s_Words[i];
        s_Words[i] := s_Words[j];
        s_Words[j] := s_Str;
      end;

  for i := 1 to n do
    Write(s_Words[i], ' ');
  Writeln;
  ReadLn();
end.

Результат:

Сортировка массива строк, Паскаль.