program array dimensi

"Orang-orang yang berhenti belajar akan menjadi pemilik masa lalu. Orang-orang yang masih terus belajar, akan menjadi pemilik masa depan" ^__-

program PASCAL-Array Dimensi

program dimensi;
uses wincrt;
var
x:array[1..100,1..100]of integer;
p,l,i,j:integer;
begin
write ('p=');readln (p);
write ('l=');readln (l);
for i :=1 to l do
for j:=1 to p do
readln (x[i , j]);
writeln ;
writeln('bentuk matriksnya') ;
for i:=1 to l do
begin
for j:=1 to p do
write (x[i , j]);
writeln;
end;
end.