Добавление элемента в конец списка - Pascal ABC

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

Помогите, пожалуйста. Напишите программу добавления элемента в конец односвязного списка(без использования других процедур) На языке Pascal

Решение задачи: «Добавление элемента в конец списка»

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

type PRec:^TRec;
TRec: Record
Next:PRec;
{и чо еще тебе надо сюда}
end;
var p,q:PRec;
     List:PRec; {начало списка}
BEGIN
{здесь заполнение списка}
p:=List;
While p^.Next<>nil do
p:=p^.Next;
New (q);
{заполняешь поля записи q}
p^.Next:=q;
END.

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

В данном коде происходит добавление элемента в конец списка.

Создается тип PRec, который является ссылкой на запись типа TRec.
Создается переменная List, которая инициализируется начальным элементом списка.
Создаются две переменные p и q, которые являются ссылками на записи типа TRec.
Заполняется список элементами.
Переменная p устанавливается равной List, чтобы начать цикл.
В цикле пока p^.Next не равно nil (т.е. пока не достигнут конец списка), переменная p обновляется, чтобы указать на следующий элемент списка.
Выделяется новая память для записи типа TRec с помощью функции New.
Значения полей записи q заполняются.
p^.Next обновляется, чтобы указать на новый элемент списка q.
Цикл завершается, когда достигается конец списка (p^.Next равно nil). Обратите внимание, что в данном коде не используются вложенные списки.