динамическая структура

[Тимурка]

Реализовать динамическую структуру: список. Обеспечить:
− создание списка;
− добавление элементов в список;
− просмотр списка;
− удаление элементов из списка;
− удаление всего списка.
Выбор операций обеспечить с помощью меню.

вот то что я написал примерно помогите дописать


program pr;
var x1,x2: nil;
begin
x1:=nil;
x2:=nil;
writeln ('Введите элементы очереди. Окончание ввода - О');
read(digit);
while digit<>0 do
begin
writeoch(x1,x2,digit);
read (digit);
end;
end.
Procedure writeOch (var x1, x2:Exo; c:integer);
var
u:exo;
begin
new(u);
u^.data:=c;
x^.next:=nil;
if x1=nil then {если очередь пуста}
x1:=u
else
x2^.next:=u; {заносим элемент в конец списка}
x2:=u;
end;
Procedure ReadOche (var x1, x2:Exo; c:integer);
var
u:exo;
Function Nul (x1: exo): Boolean;
Begin
Nul:=(x1=nil);
End;
begin
if nul(x1) then
writeln ('Очередь пуста')
else
begin
c:=x1^.data;
u:=x1;
x1:=x1^.next;
dispose(u);
end;
writeOch (x1,x2 c:integer);
ReadOche (x1,x2 c:integer);
writeln('');
end.