latihan pake pascal

mohon dimaklumi jika banyak kesalahan.. (_ _)'

program tunjangan_keluarga;

uses crt;

var

    kk, jk, pg : string;

    pb, ja, bt : real;

begin;

clrscr;

write ('nama kepala keluarga    : '); readln (kk);

write ('jenis kelamin (L/P)     : '); readln (jk);

write ('jumlah anggota keluarga : '); readln (ja);

write ('penghasilan per bulan     : '); readln (pb);

if pb >= 1000000 then

if ja > 4 then

   bt := 2500000;

if pb >= 1000000 then

if ja <= 4 then

   bt := 200000;

if pb < 999999 then

if ja > 4 then

   bt := 300000;

if pb < 999999 then

if ja > 4 then

   bt := 250000;

   

   if jk = 'L' then

   begin

   write ('pak ');

   write (kk);

   write (pg);

   write (' mendapat tunjangan Rp. ',bt :1:2);

   readln;

   end

   if jk = 'P' then

   begin

   write ('ibu ');

   write (kk);

   write (pg);

   write ('mendapat tunjangan Rp. ',bt :1:2);

   readln;

   end;

end.