Data Gaji Pegawai menggunakan RECORD & ARRAY

program data_pegawai;
uses crt;
type
    pegawai = record
    nip : string[15];
    nama : string[30];
    golongan : char;
    jamKerja : real;
end;
var
   data : array [1..100] of pegawai;
   i,n : integer;
   gapok,insentif,gaber,tot,rata : real;
   u1 : char;

array 2 dimensi

program arrayD2;
uses crt;
var
   data : array [1..10,1..10] of integer;
   n,i,j,x : integer;
begin
     clrscr;
     write('masukkan jumlah baris yg ingin diinput :');
     readln(n);
     write('masukkan jumlah kolom yg ingin diinput :');
     readln(x);
     writeln;