Fatal: Syntax error, ; expected but identifier TUNJANGAN found

Question

procedure tambahData;
begin
     clrscr;
     if banyakData<Maks then
     begin
          banyakData:=banyakData+1;
          writeln('Pemasukan data ke-',banyakData);
          with Pegawai[banyakData] do
          begin
                banyakData:=banyakData+1;
          writeln('Pemasukan data ke-',banyakData);
          with Pegawai[banyakData] do
          begin
               write('NIP          : ');readln(nip);
               write('Nama         : ');readln(nama);
               write('Jabatan      : ');readln(jabatan);

               if (jabatan = 'direktur') then
                  gajiPokok := 10000000
                  tunjangan :=  0.5*gajiPokok
                  pajak := 0.10*(gajiPokok+tunjangan)
                  gajiBersih := (gajiPokok+tunjangan)-pajak
               else
                   if (jabatan = 'manajer') then
                       gajiPokok := 5000000
                       tunjangan := 0.5*gajiPokok
                       pajak := 0.10*(gajiPokok+tunjangan)
                       gajiBersih := (gajiPokok+tunjangan)-pajak
                   else
                       if (jabatan = 'staf') then
                          gajiPokok := 3000000
                          tunjangan := 0.5*gajiPokok
                          pajak := 0.10*(gajiPokok+tunjangan)
                          gajiBersih := (gajiPokok+tunjangan)-pajak
          end;
     end
     else
         writeln('Data penuh.');
     writeln('Tekan Enter Untuk Melanjutkan');  readln;
end;