array 2dimensi

Program Data_mahasiswa;
uses wincrt;
var
   nama :array[1..10]of string[20];
   NPM:array[1..10]of string[20];
   makul:array[1..20]of string[30];
   i,j :integer;

begin
clrscr;
       write('Masukkan Jumlah Data Mahasiswa :'); readln(j);
   for i:=1 to j do

begin
       writeln('Data ke-',i);
       write('Nama Mahasiswa :'); readln(nama[i]);
       write('Masukkan NPM :'); readln(NPM[i]);
       write('makul :'); readln(makul[i]);
end;

clrscr;
       writeln('*******************************************************************************');
       writeln('No. |     Nama Mahasiswa        |         NPM         |         makul        |');
       writeln('*******************************************************************************');

   for i:= 1 to j do
begin
       writeln(i:1, nama[i]:20, NPM[i]:25, makul[i]:25);
end;

       writeln('*******************************************************************************');
readln;
end.