в паскале сделать циклический однонаправленный список(операции добавления,удаления и просмотра списка)

[Кристя777]

вот нециклический список,как переделать и еще добавить остальные процедуры?
Уже несколько дней не могу сделать правильно( не нравится ему что то(((
завтра уже зачет:-(
пожалуйста кому не сложно)


type
spisok=^spisok_type;
spisok_type=record;
name:string;
next:spisok;
end;
var

first:=Nil;
comanda:=0;
while (comanda <>4) do
begin
write ('Введите команду(1-добавить,2-удалить,3-вывод на экран,4-выход)')
readln (comanda);
case comanda of
1:
begin
if (first=nil) then
begin
new(first);
write ('Введите имя');
readln (first^.name );
first^.next=nil;
end.
Else
begin
adr:=first;
while(adr^.next<>nil);
adr:=adr^.next;
new (adr^.next);
adr:=adr^.next;
write ('введите имя');
readln(adr^.name);
adr^.next:=nil;
end;
3:
begin
adr:=first;
write ('список')
while (adr<>nil) do
begin
write(adr^name)
adr=adr^.next;
end.