Найдите номера строк заданной целочисленной матрицы  A(N, M) , в которых:   а) на всех нечётных позициях стоят нули;   б) на нечетных позициях встречаются нули — Pascal(Паскаль)

var
   a: array[1..100,1..100] of integer;
   i,j,n,m: byte;
   fl: boolean;
begin
   randomize;
   write('размеры: ');
   readln(n,m);
   for i:=1 to n do
      begin
         for j:=1 to m do
            begin
               a[i,j]:=random(61)-30;
               write(a[i,j]:4);
            end;
         writeln;
      end;
   writeln;
   write('строки: ');
   for i:=1 to n do
      begin
         fl:=true;
         for j:=1 to m do
            if odd(j) and a[i,j]<>0 then fl:=false;
         if fl then write(i,' ');
      end;
   readln
end.

var
   a: array[1..100,1..100] of integer;
   i,j,n,m: byte;
   fl: boolean;
begin
   randomize;
   write('размеры: ');
   readln(n,m);
   for i:=1 to n do
      begin
         for j:=1 to m do
            begin
               a[i,j]:=random(61)-30;
               write(a[i,j]:4);
            end;
         writeln;
      end;
   writeln;
   write('строки: ');
   for i:=1 to n do
      begin
         fl:=false;
         for j:=1 to m do
            if odd(j) and a[i,j]=0 then fl:=true;
         if f then write(i,' ');
      end;
   readln
end.