Contoh Program Linked List - Pascal

program linked_list;

uses crt;
type ptrdata = ^recorddata;
     recorddata = record
        item : string;
        berikut : ptrdata
     end;

var pd : ptrdata;
    elem : string;

procedure node_baru(var baru: ptrdata; elemen: string);
var ps: ptrdata;

begin
new(ps);
new(baru);
         baru^.item := elemen;
         baru^.berikut := nil;
end;

Procedure tambah_depan(Var depan : ptrData; elemen : string);
Var  ps :ptrdata;
Begin
new(ps);
new(depan);
                node_baru(ps,elemen);
            ps^.berikut  :=  pd;
            pd:=ps ;
End;

begin
clrscr;

 new(pd);
 elem := 'Nama          : Muhammad Reza Ramadhana';
        tambah_depan(pd, elem);
        writeln(pd^.item);
 elem := 'NIM           : J1F114204';
        tambah_depan(pd, elem);
        writeln(pd^.item);
        writeln;
 elem := 'Nama          : M R Ramadhana';
        tambah_depan(pd, elem);
        writeln(pd^.item);
  elem := 'NIM           : J1F11420X';
        tambah_depan(pd, elem);
        writeln(pd^.item);
readln;

end.