Noer Idris

uses wincrt;
type buku=record
     nim:integer;
     nm:string;
     kb:integer;
     jb:string;
end;
type larikpj=array[1..30] of buku;
var
   bk:larikpj;
   dummy:buku;
   n,a,b:byte;
   lagi:char;
   ketemu:boolean;
   cari:string;
begin
writeln('               Data Peminjam Buku Perpustakaan UTY');
writeln('');
writeln('');
lagi:='y';n:=0;
while lagi='y' do
begin
n:=n+1;
writeln('==>> Peminjam Buku',n);
writeln('');
with bk[n] do
     begin
     write('Masukkan NIM        : ');readln(nim);
     write('Masukkan Nama       : ');readln(nm);
     write('Masukkan Kode Buku  : ');readln(kb);
     write('Masukkan Judul Buku : ');readln(jb);
     end;  
     writeln('');                      
     write('Isi Data Peminjam Lagi (y/t) ?');readln(lagi);
     writeln('');
end;
clrscr;
writeln;
writeln('   Data Peminjam Buku Perpustakaan UTY  ');
writeln('');
writeln('===================================================');
writeln('No     NIM      Nama      Kode Buku     Judul Buku  ');
writeln('===================================================');
for a:=1 to n do
writeln(a:2,bk[a].nim:8,bk[a].nm:9,bk[a].kb:12,bk[a].jb:13);
writeln('===================================================');
writeln;
lagi:='y';
while lagi='y' do
begin
     write('Masukkan Judul Buku Yang Anda Cari = ');readln(cari);
     ketemu:=false;
     for a:=1 to n do
     begin
          if bk[a].jb=cari then ketemu:=true;
     end;
     if ketemu then writeln('Buku ',cari,' Ada Dalam Daftar Pinjaman Buku ')
     else
     writeln('Buku ',cari,' Tidak Ada Dalam Daftar Pinjaman Buku');
     writeln('');
     write('Apakah Anda Akan Mencari Buku Yang lain (y/t)?');readln(lagi);
end;

end.