Найти количество нечётных элементов и количество чётных элементов до первого нуля считая по строкам

var
   y: array[1..5,1..4] of integer;
   i,j,k1,k2: byte;
   f: boolean;
begin
   randomize;
   for i:=1 to 5 do
      begin
         for j:=1 to 4 do
            begin
               y[i,j]:=random(10);
               write(y[i,j]:4);
            end;
         writeln;
      end;
   writeln;
   f:=true;
   for i:=1 to 5 do
   for j:=1 to 4 do
      if f then
         if y[i,j]<>0 then
            if odd(y[i,j]) then inc(k1) else inc(k2)
            else f:=false;
   writeln('четных: ',k2);
   writeln('нечетных: ',k1);
   readln
end.

var
   z: array[1..6,1..7] of integer;
   i,j,k: byte;
   s: integer;
begin
   randomize;
   for i:=1 to 6 do
      begin
         for j:=1 to 7 do
            begin
               z[i,j]:=random(51)-25;
               write(z[i,j]:4);
            end;
         writeln;
      end;
   writeln;
   for i:=1 to 6 do
      begin
         k:=0;
         s:=0;
         for j:=1 to 7 do
            if z[i,j]>0 then
               begin
                  inc(k);
                  inc(s,z[i,j]);
               end;
         writeln(i,' строка: положительных: ',k,' сумма: ',s);
      end;
   readln
end.