Pascal - Daftar Gaji (Array)

program gaji;
uses crt;
var nip : array[1..25] of string[20];
    nm : array[1..25] of string[30];
    gj : array[1..25] of longint;
    jml : longint;
    i,n : byte;

begin
 clrscr;
 i:=1;
 write('NIP [99 = selesai] : '); readln(nip[i]);
 while nip[i] <> '99' do
 begin
  write('Nama               : '); readln(nm[i]);
  write('Gaji               : '); readln(gj[i]);
  inc(i);
  write('NIP [99 = selesai] : '); readln(nip[i]);
 end;

 n:= i-1;
 jml:= 0;
 for i := 1 to n do
 jml:= jml+gj[i];



 clrscr;
 writeln('                          DAFTAR GAJI                             ');
 writeln('------------------------------------------------------------------');
 writeln('No.Urut   NIP             NAMA                    GAJI            ');
 writeln('------------------------------------------------------------------');
         {123456789012345678901234567890123456789012345678901234567890}
 for i:= 1 to n do
 begin
 writeln(i:2); gotoxy(11,4+i);
 writeln(nip[i]); gotoxy(27,4+i);
 writeln(nm[i]); gotoxy(51,4+i);
 writeln('Rp. ',gj[i]);
 end;

 writeln;
 writeln('------------------------------------------------------------------');
 writeln('                                    TOTAL GAJI    Rp. ',jml);
 readln;
end.