Дан массив x(n,m) и число z.определить сколько раз среди элементов честных строк массива встречается число z с заданным значением

const  n=5;  m=6;var  i,j,s,z:integer;  a:array[1..n,1..m]of integer;beginfor i:=1 to n do  begin  for j:=1 to m do    begin    a[i,j]:=random(10);    write(a[i,j]:3);    end;  writeln;  end;readln(z);i:=2;while i<=n do  begin  for j:=1 to m do  if a[i,j]=z then s:=s+1;  i:=i+2;  end;writeln('Ответ: ',s);end.