Двумерный массив. Матрица, Не получается решить! Опции

[Klubbhead]

Здраствуйте! Не получается решить вот эту задачу: В задаваемой квадратной матрице обнулить элементы, расположенные выше главной и побочной диагоналей. Вроде алгоритм правильный.

Program _1;
type mtr=array[1..20,1..20] of integer;
Var A:mtr; H,W0,W1,i,j,n,m:Integer;
Begin
  Writeln('Введите',n,'строк по',m,'элементов через пробел');
  Writeln('В конце строки Enter');
  for i:=1 to n do for j:=1 to m do read(A[i,j]);
  H:=N div 2;
  If (N mod 2=0) then H:=H-1;
  W0:=2; W1:=N-1;
  for i:=1 to H do
  begin
    for j:=W0 to W1 do
       M[i,j]:=0;
    W0:=W0+1;
    W1:=w1-1;
  end;
  for j:=1 to n do write(A[i,j],' ');
  Readln;
END.

Но,когда я нажимаю пуск, напротив этого выражения M[i,j]:=0, пишется ошибка 121. Помогите решить,а то срочно нужно,спасибо!

[volvo]

  for i := n div 2 to n do
    for j := n - i + 2 to i - 1 do a[i, j] := 0;

(это если НЕ включать диагонали)