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; akhir^.berikutnya:=nil; end; end; procedure layanan(var L:pointer); var bantu:pointer; tgs,resp:byte; begin new(bantu); if L=nil then writeln('tidak ada mahasiswa di antrean') else begin bantu:=L; L:=bantu^.berikutnya;inc(n); nilaimhs[n].nama1:=bantu^.nama;nilaimhs[n].mp1:=bantu^.mp;