pointer (struktur data)

program sisipblakang;
uses crt;
type pointer = ^simpul;
     simpul = record
     data : string;
     next : pointer;
     end;
var p,baru,ptr : pointer;
    nama : string;
begin
clrscr;
     new(p);p :=nil;
     write('masukkan nama (x=selesai):');
     readln(nama);
     repeat
     new (baru);
     baru^.data :=nama;
     baru^.next :=nil;
     if p = nil then p:=baru;


write ('masukkan nama (x=selesai):');
readln(nama);
until nama ='x';
ptr :=p;
while p^.next <> nil do
begin
write(p^.data,' ');
ptr :=p^.next;
end;
write(p^.data);
readln;
end.