Как задать размерность двумерного массива

uses
  crt;
const
  max = 15;
var
  a: array[1..max, 1..max] of integer;
  i, j, n, m: integer;
begin
  clrscr;
  randomize;
  repeat
    write('Количество строк до ', max, ' m=');
    readln(m);
  until m in [1..max];
  repeat
    write('Количество столбцов до ', max, ' n=');
    readln(n);
  until n in [1..max];
  for i := 1 to n do
    for j := 1 to n do
    begin
      a[i, j] := random(100) - 30;
      if a[i, j] mod 2 > 0      {положительные нечетные}
        then textcolor(red)       {красные}
      else if a[i, j] mod 2 < 0 {отрицательные нечетные}
        then textcolor(blue)      {синие}
      else textcolor(white);
      write(a[i, j]:4);
    end;
  writeln();
  textcolor(white);
end.

const
  max = 15;
var
  a: array[1..max, 1..max] of integer;
  i, j, n, m: integer;
begin
  randomize;
  repeat
    write('Количество строк до ', max, ' m=');
    readln(m);
  until m in [1..max];
  repeat
    write('Количество столбцов до ', max, ' n=');
    readln(n);
  until n in [1..max];
  for i := 1 to n do
   begin
    for j := 1 to n do
     begin
      a[i, j] := random(100) - 30;
      if a[i, j] mod 2 > 0      {положительные нечетные}
        then textcolor(red)       {красные}
      else if a[i, j] mod 2 < 0 {отрицательные нечетные}
        then textcolor(blue)      {синие}
      else textcolor(black);
      write(a[i, j]:4);
    end;
  writeln;
 end;
end.

textcolor(white);