Помогите пож-та.Паскаль. Линейный односвязный список (ЛОС)

[tonich]

Используя линейный односвязный списпк, составить программу ввода целых чисел R1,R2,...,RN, содержащих повторяющиеся значения.
Исключить в списке все элементы, содержащие повторяющиеся значения, расположенные в последовательности подряд.
Произвести распечатку исходного и результирующего списка.

Program PR1;
Type TE=integer;
PE=^EL;
EL=record
inf:TE;
next:PE
end;
var sag,p,q:PE;
n,a,i:integer;

Procedure Vvod;
Procedure Print;
.........???????

[Serge_Bliznykov]

Вот, посмотрите, как то я уже делал программку в учебных целях, которая хранит список городов в виде односвязнного списка...