Contoh Program Pascal Linkedlink
uses wincrt; const max=20; type pointer=^recpoint; recpoint=record nama,mp:string; berikutnya:pointer; end; type mhs=record nama1,mp1:string; nilai:real; huruf:char; end; type larikmhs=array[1..max] of mhs; var List,akhir:pointer; namabaru,mkbaru:string; nilaimhs:larikmhs; lagi:boolean;n:byte; pil:1..7; procedure tambah_belakang(var L:pointer;nm,mk:string); var baru:pointer; begin new(baru); baru^.nama:=nm;baru^.mp:=mk;baru^.berikutnya:=nil; if L=nil then begin L:=baru;akhir:=baru; end else{tambah akhir} begin akhir^.berikutnya:=baru; akhir:=baru; ...