link list
program LINK_LIST; uses wincrt; type addres=^buku; buku=record nama:string[25]; alamat:string[100]; next:addres; end; var head,tail,now:addres; x:char; procedure buat; begin head:=nil;tail:=nil; end; procedure first; begin now:=head end; procedure setelah; begin if now^.next<>nil then now:=now^.next; end; procedure ubah(var a,b:string); begin now^.nama:=a; now^.alamat:=b; end; {procedure hapus; var x:addres; begin writeln('masukkan nama yang akan dihapus');readln(now^.nama); if now^.nama<>head^.nama then begin x:=head; while x^.next<>now do x:=x^.next; x^.next:=now^.next; end; if now^...