Проверить, упорядочены ли элементы списка по алфавиту - Turbo Pascal

Формулировка задачи:

Написать программу, содержащую функцию, которая проверяет, упорядочены ли элементы списка по алфавиту. Заполнение и вывод списка я сделал, помогите с функцией

Или процедуру, которая копирует в список М за каждым вхождением заданного элемента все элемента списка М1.Или подпрограмму, которая проверяет на равенство списки М1 и М2. Спасибо

Решение задачи: «Проверить, упорядочены ли элементы списка по алфавиту»

Листинг программы

type
  PNode = ^TNode;
  TNode = record
    next: PNode; s: String[20];
  end;
function IsSortedAsc(p: PNode): Boolean;
begin
  IsSortedAsc:=False;
  if p<>nil then
    while p^.next<>nil do begin
      if p^.s>p^.next^.s then Exit;
      p:=p^.next;
    end;
  IsSortedAsc:=True;
end;

Объяснение кода листинга программы

Данный код на языке Turbo Pascal проверяет, упорядочены ли элементы списка по алфавиту. Он использует структуру данных, представленную типом PNode, который представляет собой указатель на структуру TNode. Каждая структура TNode содержит поля next (указатель на следующий элемент списка) и s (строка из 20 символов). Функция IsSortedAsc принимает указатель на начало списка и возвращает логическое значение true, если список отсортирован по возрастанию, и false в противном случае. Она инициализирует переменную IsSortedAsc значением false. Затем она выполняет цикл, который проверяет каждый элемент списка, начиная с первого. Если текущий элемент имеет строковое значение, которое больше или равно строковому значению следующего элемента, то функция завершает работу и возвращает true. Если же текущий элемент равен следующему элементу, то функция продолжает проверять следующий элемент. Если в процессе проверки все элементы оказались упорядоченными по возрастанию, то функция возвращает true, иначе - false. Таким образом, данный код проверяет, упорядочены ли элементы списка по алфавиту, используя простую алгоритмическую схему сравнения строк.