malem gan/sis, ane mau tanya sesuatu nih..

syntax program ini termasuk array 2 dimensi atau 1 dimensi yah?

program data_mahasiswa;

uses crt;

var 

 nama : array[1..10]of string[20];

 NPM : array[1..10]of string[20];

 i,j : integer; 



procedure input_data;

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]);

 end;



end; 



begin 

input_data;

clrscr;

writeln('*************************************************');

writeln('No. | Nama Mahasiswa | NPM |');

writeln('*************************************************');



 for i := 1 to j do

 begin

 writeln(i:1, nama[i]:20, NPM[i]:25);

 end; 



writeln('*************************************************');

readln;

end. 

Terimakasih gan/sis dan kaskus..