oleh : http://www.facebook.com/editprofile.php?sk=picture#!/pages/Muslimah-Shalihah-Perindu-Surga-Allah

Aku Wanita Mujahidah Sejati..
Yang tercipta dari tulang rusuk lelaki yang berjihad,
Bilakah kan datang seorang peminang menghampiriku mengajak untuk berjihad
Kelak ku akan pergi mendampinginya di bumi Jihad

Aku telah bersiap sedia dengan semua syarat yang diajukannya
Cinta Allah, Rasul dan Jihad Fisabilillah
Aku rela berkelana mengembara dengannya lindungi Dienullah
Ikhlas menyebarkan dakwah ke penjuru bumi Allah

program perpustakaan;
uses crt;
type
pointer = ^Buku;
Buku = record
kodeBuku : integer;
judulBuku: string;
next,prev : pointer;
end;
var
awal,akhir : pointer;


{-----------------------------------------SISIP DEPAN-------------------------------------------}

procedure sisip_depan_double(var awal,akhir:pointer; kode:integer; judul:string);
var
dataBuku:pointer;
begin
New(dataBuku);
dataBuku^.kodeBuku := kode;
dataBuku^.judulBuku := judul;
if (awal = nil) then
begin
dataBuku^.next := nil;
dataBuku^.prev := nil;
akhir := dataBuku;
end
else
begin
dataBuku^.next := awal;
dataBuku^.prev := nil;
awal^.prev := dataBuku;
end;
awal:=dataBuku;
end;

{-----------------------------------------SISIP BELAKANG-------------------------------------------}

procedure sisip_belakang_double(var awal,akhir :pointer; kode:integer; judul:string);
var
dataBuku : pointer;
begin
New(dataBuku);
dataBuku^.kodeBuku := kode;
dataBuku^.judulBuku := judul;
dataBuku^.next := nil;
if (awal = nil) then
begin
awal:=dataBuku;
dataBuku^.prev := nil;
akhir := dataBuku;
end
else
begin
akhir^.next := dataBuku;
dataBuku^.prev := akhir;
end;
akhir:=dataBuku;
end;

{-----------------------------------------SISIP TENGAH-------------------------------------------}

procedure sisip_tengah_double(var awal,akhir :pointer; kode:integer; judul:string; menu_sisiptengah :integer);
var
dataBuku,bantu : pointer;
datasisip: integer;
ketemu:boolean;
begin
if(awal=nil)then
begin
New(dataBuku);
dataBuku^.kodeBuku:= kode;
dataBuku^.judulBuku:= judul;
dataBuku^.next:= nil;
dataBuku^.prev := nil;
awal:=dataBuku;
akhir:=dataBuku;
end
else
begin