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

Const

n=5;

m=6;

var

i, j, s, z:integer;

a:array[1 ... n, 1 ... m]of integer;

begin

for 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.