Pembuatan matrik pada pascal

Assalamu'alikum wr.wb.
Pada kesempatan kali ini saya akan membagikan tentang pembuatan matrik menggunakan perulangan array pada pascal.

Baris program:
Baris Program:
uses crt;
var
 i,j,ray:Array [1..10,1..10] of integer;
 baris,kolom:integer;
begin
 clrscr;
 write('jumlah baris:');readln(baris);
 write('jumlah kolom:');readln(kolom);
 for baris:=1 to baris do
 for kolom:=1 to kolom do
    begin
write('[',baris,',',kolom,']=');readln(ray[baris,kolom]);
    end;
writeln;
writeln('Matrix yang terbentuk adalah:');
for baris:=1 to baris do
    begin
for kolom:=1 to kolom do
    begin
write(ray[baris,kolom]:5);
write('');
    end;
writeln;
   end;
readln;
end.

Scrshoot:

Demikian yang dapat saya sampaikan tentang pembuatan matrik pada pascal, semoga bermanfaat. Wassalamu'alaikum wr.wb.