Где ошибка в коде программы: создайте целочи...

program massiv;
var
k,x,j,z:integer;
m:array[1..10] of integer;
begin
writeln ('введите кол-во элементов массива=  ');
readln (j);
k:=0;
randomize;
  for z:=1 to j do
      begin
  m[j]:=random(10);
  write(m[j]:8);
  x:=sqr(m[j]);
  write('^2=');
  write(x,'  ');
  writeln('');
           end;
  if not odd(x) then
      begin
         if (m[j-1]=0) or (m[j+1]=0) then
             k:=k+1;
             end;
  if k=0 then
  writeln('соседств четного квадрата с нулем нет')
  else  writeln('число соседств четного квадрата с нулем=  ', k);
end.

program massiv;
 
var
  k,x,j,z:integer;
  m:array[1..10] of integer;
begin
  writeln ('введите кол-во элементов массива=  ');
  readln(j);
  randomize;
  for z:=1 to j do begin
    m[z] := -4 + random(9); (*-4..4*)
    x:=sqr(m[z]);
    writeln(m[z]:4, '^2=', x);
  end;
 
  k := 0;
  for z := 1 to j do begin
    if (m[z] <> 0) then begin
      if not odd(m[z] * m[z]) then begin
        if (z > 1) and (m[z-1]=0) then k := k + 1;
        if (z < j) and (m[z+1]=0) then k := k + 1;
      end;
    end;
  end;
 
  if k=0 then
    writeln('соседств четного квадрата с нулём нет')
  else
    writeln('число соседств четного квадрата с нулём=  ', k);
 
  Readln;
end.

  k := 0;
  for z := 1 to j do begin
    (*if (m[z] <> 0) then begin*)
      if not odd(m[z] * m[z]) then begin
        if (z > 1) and (m[z-1]=0) then k := k + 1;
        if (z < j) and (m[z+1]=0) then k := k + 1;
      end;
    (*end;*)
  end;