Pascal Program Perpustakaan

program perpus;
uses crt;
type
dt=record
kd:integer;
jd:string;
pg:string;
th:integer;
ed:string;
pb:string;
end;
sw=record
nim:integer;
nm:string;
jml_bk:integer;
end;
var

dt1:array[1..25]of sw;
dt2:array[1..25]of dt;
jml_sw,i,j:integer;
ulang:char;
begin
repeat
clrscr;
writeln('Program Perpustakaan');
writeln('====================');
writeln;
write('Masukan Jumlah mahasiswa yang meminjam: ');readln(jml_sw);
for i:=1 to jml_sw do
begin
writeln('=======================');
writeln('Data Mahasiswa ke : ',i);
writeln('=======================');
writeln('Isi Form Identitas');
writeln;
write ('Nim  : ');readln(dt1[i].nim);
write ('Nama : ');readln(dt1[i].nm);
write ('Jumlah Buku yang di pinjam : ');readln(dt1[i].jml_bk);
for j:=1 to dt1[i].jml_bk do
begin
writeln;
writeln ('Isi Form Keterangan Buku : ', j);
writeln ('-------------------------------');
write ('Kode Buku : ');readln(dt2[j].kd);
write ('Judul     : ');readln(dt2[j].jd);
write ('Pengarang : ');readln(dt2[j].pg);
write ('Th Terbit : ');readln(dt2[j].th);
write ('Edisi     : ');readln(dt2[j].ed);
write ('Penerbit  : ');readln(dt2[j].pb);
writeln;
end;

Untuk Lebih lengkap :
Download File (.PAS)