[M.A.D.M.A.N.]

Ошибка в цикле.

Код:

type matr = array[2..22, 2..22] of integer;

procedure zapolnenie_matr (a, b: integer; var m: matr);
var 
  i, i2: byte;
begin
  writeln (a, '&&&', b);
  for I := 2 to a do
    for I2 := 2 to b do
      m[i, i2] := random(10);
  writeln (a, '***', b);
end;