Gaji Pegawai dalam pascal

Program Hitung_Gaji_Pegawai;
Uses WinCrt;
Var
NP:string;
No:byte;
GP:Integer;
N,JL,TJ,Total:Real;
Begin
GotoXY(1,2);Write('Nama Pegawai : ');ReadLn(NP);
GotoXY(1,3);Write('NIP : ');ReadLn(No);
GotoXY(1,4);Write('Lembur(dalam Jam): ');ReadLn(N);

GotoXY(11,5);Write('Perincian Gaji Pegawai : ');
GotoXY(11,6);Write('__________________________ ');
GotoXY(14,7);Write('Gaji Pokok : ');ReadLn(GP);
TJ:=0.15*GP;
JL:=n*0.015*GP;
Total:=TJ+GP+JL;
GotoXY(14,8);Write('Jam Lembur : ',JL:2:0);
GotoXY(14,9);Write('Tunjangan : ',TJ:2:0);
GotoXY(14,10);Write('_______________');
GotoXY(17,11);Write('Gaji Total :Rp. ',Total:2:0);

End.