Program database ini adalah contoh-contoh penggunaan fungsi dan prosedur. Perhatikan contoh berikut:
1: Program BuatFile;
2: var fText : text; data: string;
3: begin
4:   writeln(’MENGISI DATA’);
5:   writeln(’————’);
6:   assign(fText, ‘nama.txt’);
7:   rewrite(fText); {gunakan reset(fText) bila file sudah ada}
8:   writeln(fText, ‘dijas’);
9:   writeln(fText, ‘dian’);
10:   writeln(fText, ‘cecep’);
11:   close(fText);
12:   readln;
13: end.
Prosedur yang digunakan di atas adalah prosedur no. 1 sampai 5 yang ada di [...]

Yang ini sebenarnya program tambahan, habis program-program sebelumnya kan kebanyakan bermain logika matematik (tentang angka melulu). Ehh… dipikir-pikir, operasi tentang string kok gak ada? Tenaaannggg…. sekarang udah ada kok :p
1: var nama : string;
2:     urutan, posisi: integer;
3: begin
4:   nama:=’Dijas Keren’;
5:   writeln(’Yang ini delete’);
6:   for urutan:=1 to 11 do
7:     begin
8:       posisi:= 13 – urutan;
9:       delete(nama, posisi, [...]

Pada tutorial 5 telah dijelaskan cara penggunaan array dan record. Sekarang kita akan menggabungkan array dan record tersebut. Perhatikan program di bawah ini:
1: Program Array_dan_Record;
2: type dmhs=record
3:   nrp:string[10];
4:   nama:string[25];
5:   alamat:string[50];
6: end;
7: var data:array[1..3] of dmhs;
8:     i:integer;
9: begin
10:   for i:=1 to 3 do
11:     begin
12:       write(’nrp : ‘);readln(data[i].nrp);
13:       write(’nama : ‘);readln(data[i].nama);
14:       write(’alamat : ‘);readln(data[i].alamat);
15:     end;
16:   writeln;
17:   writeln(’Data [...]

Setelah dari tadi belajar logika, sekarang kita menggabungkan beberapa program sebelumnya dan dibuat menu. Untuk contoh ini kita memanfaatkan repeat.
1: Program Gabung;
2: uses crt;
3: var pilih: integer;
4: Procedure luas;
5:   {copy dan paste program 1}
6: end;
7: Procedure JenisBilangan;
8:   {copy dan paste program 2}
9: end;
10: Procedure Pengurutan;
11:   {copy dan paste program 4}
12: End;
13: begin {program utama}
14:   repeat
15:     [...]