uses crt;

type matr=array[1..10,1..10] of integer;

var n,m:integer; a:matr;

procedure vvod(var n,m:integer; var a:matr); //процедура ввода

var i,j:integer;

begin

writeln('n='); readln(n); //кол-во столбцов матрицы

writeln('m='); readln(m); //кол-во строк матрицы

for i:=1 to n do

for j:=1 to m do begin

write('el[',i,',',j,']='); readln(a[i,j]); end; writeln; end;

procedure vivod(n,m:integer; a:matr); //процедура вывода

var i,j:integer;

begin

for i:=1 to n do  begin

for j:=1 to m do

write(a[i,j]:4); writeln; end; end;

begin

vvod(n,m,a); //вызов процедуры ввода

vivod(n,m,a); //вызов процедуры вывода

readln; end.

Попробуй его