membuat matriks pada pascal

dengan program dibawah kita dapat membuat matrik dengan ordo terserah tetapi maksimal berordo 10 x 10....
dan kita dapat mengisi bilangan matrik secara berurutan sesuai pada baris dan kolom yang telah ditentukan.....

LET'S DO IT....


program matriks;
uses crt;
var
baris, kolom, i, j : byte;
array1, array2, array3 : array [1..10,1..10] of integer;

begin
write('masukan jumlah baris : ');readln(baris);
write('masukan jumlah kolom : ');readln(kolom);
writeln('input matrik');
for i:= 1 to baris do
for j:= 1 to kolom do
begin
write('input data matrik ke : ',i,' - ',j,':');
readln(array[i,j]);
end;
end.