Напишите программу для сортировки пяти слов вводимых пользователем по невозрастанию в паскале

Конечно, вот пример программы на языке Pascal для сортировки пяти слов, введенных пользователем, в порядке невозрастания:

program SortWords;

var
  words: array[1..5] of string;
  i, j: integer;
  temp: string;

begin
  // Ввод слов от пользователя
  writeln('Введите пять слов:');
  for i := 1 to 5 do
  begin
    write('Слово ', i, ': ');
    readln(words[i]);
  end;

  // Сортировка слов в порядке невозрастания
  for i := 1 to 4 do
  begin
    for j := i + 1 to 5 do
    begin
      if words[i] < words[j] then
      begin
        temp := words[i];
        words[i] := words[j];
        words[j]...