Напишите двумерный массив с помощью функции и процедуры!

Const N=5; M=6;

var A:array[1 ... 100,1 ... 100] of Integer;

B:integer;

function massive () : integer;

begin

B:=random (-100,100) ;

Result:=B;

end;

procedure input (i, j:integer) ;

begin

For i:=1 to N do

For j:=1 to M do

A[i, j]:=massive () ;

end;

procedure

output (i, j:integer) ;

begin

For i:=1 to N do

begin

For j:=1 to M do

Write (A[i, j],' ') ;

Writeln;

end;

end;

begin

input (1,1) ;

output (1,1) ;

end.