Program Daftar Gaji Pegawai Record dengn Array bertipe Record

Program total_gaji_pegawai;
Uses wincrt;
type
  datapegawai=record
      Nip:string[11];
      Nama:string[12];
      golongan:char;
      tunjngn,totgaji,gaji:real;
  end;
var
   pegawai:array [1..30] of datapegawai;
   i,n    :integer;
Begin
write('Isi Banyak Pegawai : ');readln(n);
writeln;
 for i :=1 to n do
  begin
  with pegawai[i] do
   begin
    Write('Isi Nama Pegawai  : '); readln(Nama);
    Write('Isi NIP Pegawai   : '); readln(Nip);
    Write('Isi Golongan      : '); readln(golongan);
    writeln;
    case golongan of
    'A': gaji:=500;
    'B': gaji:=600;
    'C': gaji:=700;
    'D': gaji:=900;
    end;
    tunjngn := (15/100)*gaji;
    totgaji := (gaji+tunjngn);
    end;
   end;
    clrscr;
    Writeln('===========================================================');Writeln('|                                             DAFTAR GAJI PEGAWAI                                                |');
    Writeln('===========================================================');
    Writeln('| Nama Pegawai   NIP    Golongan   Gaji Pokok     Tunjangan     Total Gaji |');
    Writeln('===========================================================');
    for i := 1 to n do
     begin
      with pegawai [i] do
      writeln('|',Nama:10,Nip:10,golongan:8,gaji:10:2,tunjngn:16:2,totgaji:15:2,'|');
      end;
    Writeln('===========================================================');
 end.