Program Array 3D

program array3D;
uses wincrt;

const   
baris = 2;
kolom = 4;

var
arr : array[1..baris,1..kolom] of integer;
i,j : integer;

begin
 
    for i := 1 to baris do
    begin
        for j := 1 to kolom do
        begin
            arr[i,j] := random(100);
        end;
    end;


    for i := 1 to baris do
    begin
        for j := 1 to kolom do
        begin
            write(arr[i,j],'   ');
        end;
        writeln;
    end;
 
    readln;
end.