const n=5; m=4;
var 
x:array[1..n,1..m] of integer;
a,b,i,j,k1,k2,k3:integer; 
b1,b2,b3:boolean;
begin
Randomize;
for i:=1 to n do begin
 for j:=1 to m do begin
 x[i,j]:=random(20)-10;
 write(x[i,j]:6);
 end;
writeln;
end;
write('a=');readln(a);
write('b=');readln(b);
b1:=false; b2:=false; b3:=false;
for i:=1 to n do
begin
 k1:=0; k2:=0; k3:=0;
 for j:=1 to m do 
  begin
  if x[i,j] mod 2 <> 0 then k1:=k1+1;
  if (x[i,j] mod a = 0)or(x[i,j] mod b = 0) then k2:=k2+1;
  if x[i,j] < 0 then k3:=k3+1;
  end;
 if k1=m then b1:=true;
 if k2=m then b2:=true;
 if k3=m then b3:=true;
 end;
if b1 then writeln('В массиве есть строка состоящая только из нечетных элементов')
      else writeln('В массиве нет строки состоящей только из нечетных элементов');
if b2 then writeln('В массиве есть строка состоящая только из элементов кратных числу а или б')
      else writeln('В массиве нет строки состоящей только из элементов кратных числу а или б');
if b3 then writeln('В массиве есть строка состоящая только из отрицательных чисел')
      else writeln('В массиве нет строки состоящей только из отрицательных чисел');
end.      

Пример:
     8     3    -1     6
    -1     2     0   -10
     9     8    -5     9
     9    -6    -6     4
     9    -6    -1     2
a=3
b=4
В массиве нет строки состоящей только из нечетных элементов
В массиве есть строка состоящая только из элементов кратных числу а или б
В массиве нет строки состоящей только из отрицательных чисел