simulasi kredit motor

uses wincrt;
var no,kl,nl,km,nmr,:string;
begin
clrscr;
writeln('belajar membuat program');
writeln('===simulasi kredit motor');
writeln('===09 november 2011===');
writeln;
write('no kredit=');readln(no);
write('kode leasing=');radln(kl);
write('nama konsumen=');readln(nk);
     if kl='fif'then
       nk:='federal internasional finance'
else if kl='adr'then
       nk:='adira finance'
else if kl='wom'then
       nk:='wom finance'
else if kl='tns'then
       nk:='tunas finance'
else if kl='oto'then
       nk:='oto finance';
writeln('nama leasing=');readln(nl);
writeln('alamat=');readln(almt);
writeln('kode kendaraan=');readln(kd);
writeln('no telepon=');readln(tlp);
writeln('type motor=');readln(tm);
write('kode motor=');readln(km);
if km='hnd'then
       tm:='honda'
else if km='ymh'then
       tm:='yamaha'
else if km='szk'then
       tm:='suzuki'
else if km='kwk'then
       tm:='kawasaki'
else if km='kzn'then
       tm:='kanzen'
else if km='bjj'then
       tm:='bajaj'
else if km='tvs'then
       tm:='tvs'
else if km='mnv'then
       tm:='minerva'
else if km='jlg'then
       tm:='jialing'
else if km='snx'then
       tm:='sanex';
writeln('jenis=');readln(jns)
write('kode jenis=');readln(kj)
    if kj='spt'then
     jns:='sport'
else if kj='bbk'then
     jns:='bebek'
else if kj='mtk'then
     jns:='metik'
else if kj='udb'then
     jnis:='under boun';
writeln('nama barang=');readln(nb)
write('kode barang=');readln(kdb)
   if kdb='tgr'then
      nb:='tiger'
else if kdb='spr'then
      nb:='supra'
else if kdb='cs1'then
      nb:='city sport one'
else if kdb='bld' then
      nb:='blade,
else if kdb='bat'then
      nb:='beat'
else if kdb='var'then
      nb:='vario'
else if kdb='vxn'then
      nb:='vixion'
else if kdb='bsn'then
      nb:='bison'
else if kdb='scp'then
      nb:='scorpion'
else if kdb='jpt'then
      nb:='jupiter'
else if kdb='mio'then
      nb:='mio matic';