Procedure Call By Reference-PerPusTakaaN

uses crt;
procedure buku(var kode:char;var jenis:string;var tarif:integer);
begin
if (kode='C') or (kode='c') then
begin
jenis:='Cerpen';
tarif:=500;
end
else
if (kode='K') or (kode='k') then
begin
jenis:='Komik';
tarif:=700;
end
else
if (kode='N') or (kode='n') then
begin
jenis:='Novel';
tarif:=1000;
end
else
begin
jenis:='Salah!!';
tarif:=0;
end;

end;

procedure hitung_totbay(var lama:byte;var tarif,totbay:integer);
begin
totbay:=lama*tarif;
end;

var
jenis:string;
nm,lagi,kode:char;
lama:byte;
tarif,totbay:integer;
label yana;
begin
yana:
clrscr;
write('Masukkan Nama Peminjam : ');readln(nm);
write('Masukkan Kode Buku [C/K/N] : ');readln(kode);
write('Masukkan Lama Pinjam : ');readln(lama);
clrscr;
writeln(' Perpustakaan Kecil-Kecilan ');
writeln;
buku(kode,jenis,tarif);
hitung_totbay(lama,tarif,totbay);
writeln('Jenis Buku : ',jenis);
writeln('Tarif Buku : ',tarif);
writeln('Nama Peminjam : ',nm);
writeln('Total Bayar : ',totbay);
writeln;
write('Input lagi [Y/T].. ?? ');readln(lagi);
if (lagi='Y') or (lagi='y') then
goto yana;

readln;
end.