Матрица подскажите в чем ошибка?

uses crt;
type mas=array[1..100,1..100] of integer;
var a:mas;
i,j,n,m,k,x:integer;
begin
clrscr;
write('n=');
readln(n);
write('m=');
readln(m);
x:=1;
for k:=1 to n do begin
for i:=1 to k do  begin 
a[i,k-i+1]:=x;
x:=x+1;
end;
end;
writeln('----------');
for i:=1 to n do begin
for j:=1 to m do begin  
if i mod 2=0 then a[i,j]:=(i-1)*m+j else a[i,j]:=i*m-j+1;
if a[i,j] mod 2=1 then a[i,j]:=i else a[i,j]:=0;
write(a[i,j]:4);
end;
writeln;
end;
readln
end.

uses
  crt;
 
type
  mas = array[1..1000, 1..1000] of integer;
 
var
  a: mas;
  b: array[1..1000] of integer; //вспомогательный массив
  i, j, n, m,: integer;
 
begin
  clrscr;
  write('n = ');
  readln(n);
  write('m = ');
  readln(m);
  //n := 4; m := 7;
 { Формируем одномерный массив требуемых значений: } 
  for i := 1 to n * m do
    if odd(i) then b[i] := (i + 1) div 2 //значения при нечетных i
    else b[i] := 0; //значения при четных i
    
  writeln('----------');
 { Составляем значания двомерного массива A[i, j] из одномерного b[i]: }
  for i := 1 to n * m do
    if odd((i - 1) div m + 1) then //нечетные строки матрицы - значения элементов берем подряд
     a[(i - 1) div m + 1, (i - 1) mod m + 1] := b[i] 
    else //четные строки матрицы - значения элементов берем в обратном порядке
     a[(i - 1) div m + 1, m - (i - 1) mod m] := b[i]; 
  
 { Выводим результат: }
  for i := 1 to n do 
  begin
    for j := 1 to m do write(a[i, j]:4);
    writeln
  end;
  readln
end.

var a: array [1..100, 1..100] of integer;
    i, j, n, m:integer;
begin
  write('n = ');
  readln(n);
  write('m = ');
  readln(m);
  writeln('----------');
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          if (i + j) mod 2 = 1
            then a[i,j] := 0
            else if i mod 2 = 0
              then a[i, j] := ((i - 1) * m + m - j + 1) div 2 + 1
              else a[i, j] := ((i - 1) * m + j) div 2 + 1;
          write(a[i,j]:4)
        end;
      writeln;
    end;
  readln
end.