sampel

program sisipblakang;
uses crt;
type pointer = ^simpul;
     simpul = record
     data : string;

     end;
var p,baru : pointer;
    nama : string;
begin
clrscr;
     new(p);p :=nil;
     write('masukkan nama (x=selesai):');
     readln(nama);
     repeat
     new (baru);
     baru^.data :=nama;
     if p = nil then p:=baru;



write ('masukkan nama (x=selesai):');
readln(nama);
until nama ='x';
p :=p;
begin
write(p^.data,' ');

end;
write(p^.data);
readln;
end.