Однонаправленный список, не работает процедура очистки - Pascal

program UnidirectionalList;
 
type
   tData = integer;
   
   tPtr = ^tNode;
   
   tNode = record 
      data : tData;
      next : tPtr;
   end;
   
   tList = tPtr;
var 
   Key: integer; {Пункт меню}
   l: tList;     {Указатель вершины списка}
   
procedure Error(message: string);
   {Выдача сообщений об ошибке}
begin 
   Writeln(' *** Ошибка: ' + message);
   Writeln;
end;
 
procedure Init(var l: tList);
   {инициализация однонаправленного списка}
begin 
   l := nil;
end;
 
function NotEmpty(l: tList): Boolean;
   {список не пуст}
begin
   NotEmpty := l <> nil;
end;
 
procedure Drop(var l: tList);
   {удалить элемент}
var 
   p: tPtr;
begin
   p := l;
   l := l^.next;
   Dispose(p);
end;
 
procedure Clear (l: tList);  {очистить}
begin 
   while NotEmpty(l) do
      Drop(l);
end;
 
procedure Put (var l: tList; D: tData); {добавить}
var 
   p: tPtr;
begin
   New(p);
   p^.data := D;
   p^.next := l;
   l := p;
end;
   
procedure Fill (var l: tList); {заполнить однонаправленный список}
var
   x: tData;
begin
  Clear(l);
  Writeln('Вводите элементы по одному');
  repeat 
     Write (''); Readln (x);
     if x <> 0 then
        Put(l, x);
  until x = 0;
end;
   
procedure Write(var First: tPtr);
   
var 
   p: tPtr;
begin
   p := First;
   while p <> nil do begin 
      Write ('  ', p^.data);
      p := p^.next;
   end;
end;
 
procedure ShowMenu;
   {показать меню}
begin
   Writeln (' Операции с однонаправленным списком');
   Writeln ('------------------------------------');
   Writeln ('1 - Заполнение                              2 - Очистка');
   Writeln ('3 - Вывод на экран');                          
   Writeln ('8 -  Показать меню                          0 - Выйти');
   Writeln;
   Writeln ('Выберите нужный пункт');
end;
 
begin 
   Init(l); {инициализировать однонаправленный список}
   ShowMenu;
   repeat 
      Writeln;
      Write (' > ');
      Readln(Key);
      Writeln;
      case Key of 
      1: Fill(l);        {Заполнить} 
      2: Clear(l);       {Очистить}
      3: Write(l);       {Напечать}
      0: {Пусто}; 
      else 
         ShowMenu;
      end;
   until Key = 0;
end.