Дан массив 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  begin
  for j:=1 to m do
  if a[i,j]=z then s:=s+1;
  i:=i+2;
  end;
writeln(Ответ: ,s);
end.