Program Array Sederhana Pada Pascal

program contoh_Array_input;
uses crt;
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
clrscr;
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[1]:25,Nilai[i]:3:2,'',Umur[i]:3);
end;
readln;
end.