procedure chen(var p : contro);
var q : contro;
 begin
   new(q);
    q^.hoten:='luong bich huu';
    q^.tongtien:=300000;
    q^.cvu:='ktt';
    q^.next:=first;
    first:=Nil;
    new(first);
    first^:=@q;{Nếu viết như cũ thì First trỏ tới địa chỉ q mà khi thoát
chương trình còn thì q được giải phóng do nó không phải biến toàn chương trình}
 end;
 
begin
chen(p);
p:=first;
While p <> Nil do
 begin
   Writeln('+',p^.hoten ,'chuc vu ',p^.cvu,' co phu cap ',p^.pcap,'luong ', p^.tongtien);
   p:=p^.next;
 end;