Program Gaji Bersih (Pascal)

Berikut sintaks program mencari gaji bersih :

program Gaji_Bersih;
uses crt;
var y:char;
    f,h,z:real;
    e,g,x:integer;

begin;
      clrscr;
      gotoxy(20,1);write('PROGRAM MENCARI GAJI BERSIH');
      gotoxy(25,5);write('Masukkan lama anda bekerja                 :   tahun');
      gotoxy(25,6);write('Masukkan blok tempat tinggal (A,B, atau C) :  ');
      gotoxy(70,5);readln(x);
      gotoxy(70,6);readln(y);

         if x>=0 then
            begin
                 case x of
                 0..8   :h:= 50000;
                 9..17  :h:= 100000;
                 18..24 :h:= 200000;
                 25..40 :h:= 300000;
                 end;

                 case y of
                 'A': f:=(5/100)*h;
                 'B': f:=(4/100)*h;
                 'C': f:=(2/100)*h;
                 end;

            z:=h-f;

            gotoxy(25,9);write('Gaji bersih anda Rp ',z:0:2);
            end;
      readln;
end.

Selamat mencoba