const
  rows = 15;
  cols = 15;
type
  TMatrix = array [1..rows, 1..cols] of integer;
procedure printmatrix (rows, cols : integer; a : TMatrix);
var
  i, j : integer;
begin
  for i := 1 to rows do begin
    for j := 1 to cols do begin
      write (a[i][j], ' ');
    end;
    writeln;
  end;
end;
...