Дано 2 массива a(n) , b(n). найти количество нулевых элементов в двух массивах (использую один цикл) — Pascal(Паскаль)

const
  max=10;
var
  a,b:array [1..max] of integer;
  a0,b0,i:integer;
begin
  a0:=0;
  b0:=0;
  for i:=1 to max do
  begin
    a[i]:=random(8)-4;
    b[i]:=random(8)-4;
    if a[i]=0 then
      inc(a0);
    if b[i]=0 then
      inc(b0)
  end;
  writeln('Количество нулевых элементов - ',a0);
  writeln('Количество нулевых элементов - ',b0)
end.

const
  max=10;
var
  a,b:array [1..max] of integer;
  a0,b0,i:integer;
begin
  a0:=0;
  b0:=0;
  writeln('Массив а:');
  for i:=1 to max do
  begin
    a[i]:=random(8)-4;
    write(a[i],' ');
    b[i]:=random(8)-4;
    if a[i]=0 then
      inc(a0);
    if b[i]=0 then
      inc(b0)
  end;
  writeln;
  writeln('Массив б:');
  for i:=1 to max do
    write(b[i],' ');
  writeln;
  writeln('Количество нулевых элементов - ',a0);
  writeln('Количество нулевых элементов - ',b0)
end.