Jawaban Pelengkap Program Array

var
     NPM : array[1..20] of string [10];
     Nama : array[1..20] of string [25];
     Nilai : array[1..20] of real;   
     Umur : array[1..20] of byte;
     banyak,i : integer;
begin
     write('Isi berapa data array yang diperlukan : ');readln(banyak);
     for i = 1 to banyak do
     begin
          write('NPM : '); readln(NPM[i]);
          write('Nama : ');readln(Nama[i]);
          write('Nilai : ');readln(Nilai[i]);
          write('Umur :');readln(Umur[i]);
     end;
     {cetak variabel array}
     writeln('NPM        Nama           Nilai         Umur');
     for i:=1 to banyak do
     begin
         writeln(NPM[i]:10,Nama[i]:25,Nilai[i]:3:2,' ',Umur[i]:3);
     end;
   readln;
end.