Обработка двумерного массива

[Андрей77777]

В заданной матрицы Q(4,5) найти сумму элементов меньших заданного числа D.
Вывести исходную матрицу и исчисленную сумму.

[Stilet]

Показывай как вводишь массив.

[NinaSSS]

program massiv;   uses crt;
 const n=4; m=5;
var q:array[1..10,1..10] of integer;
i,j,k,s,d :integer; p:real;
 begin  clrscr;
  writeln('vvedite d');
 readln(d);
 randomize;
 for i:=1 to n do begin
 for j:=1 to m do begin
 q[i,j]:=random(10);
 end; end;
  for i:=1 to n do begin
 for j:=1 to m do begin
write(q[i,j]:3); end; writeln; end;
 s:=0;
  for i:=1 to n do begin
 for j:=1 to m do begin
 if q[i,j]<d then  s:=s+q[i,j];
 end;end;
 writeln('summa=',s);

  end.

[Stilet]

const n=4; m=5;
var q:array[1..10,1..10] of integer;

А почему константы не используешь для описания размерности массива?