Программирование на Pascal

Необходимо добавить в существующий код дополнительный функционал:

1. Очистка всего списка.

P.s.

Пример функции

procedure delete(x:string);//Удаление

begin

if first=nil then begin writeln('Список пуст'); exit; end;

p:=first;

while (p^.Nextnil)and(xp^.Fam) do begin

pred:=p; p:=p^.Next;

end;

if(xp^.Fam) then writeln('Элемент не найден')

else begin

writeln('Элемент: ',p^.Nom,' ',p^.Fam, ' успешно удален');

if(pfirst) then pred^.Next:=p^.Next else first:=p^.Next;

dispose(p);

end;

end;