используя двумерный массив!

[loya]

В массиве целых чисел найти номера строк, в которых все элементы: а) нули б) одинаковые в) парные числа.

[ZX Spectrum-128]

uses
  crt;
const
  razm=100;
type
  matr=array[1..razm,1..razm] of integer;
var
  m,i,j:integer;
  a:matr;
  isequal,isnotodd,iszero:boolean;
begin
  clrscr;
  (* ввод размерностей массива *)
  write('Введите размерность массива А: ');
  readln(m);
  (* Генерация массивов *)
  for i:=1 to m do
    for j:=1 to m do
      a[i,j]:=random(m);
  (* Вывод массивов *)
  for j:=1 to m do
    begin
      a[1,j]:=0;
      a[2,j]:=4;
    end;

  writeln('Массив А');
  for i:=1 to m do
    begin
      for j:=1 to m do
        Write(a[i,j]:3);
      writeln;
    end;

  for i:=1 to m do
    begin
      isZero:=true;
      isnotodd:=true;
      isequal:=true;
      for j:=1 to m do
        begin
          if a[i,j]<>0 then
            iszero:=false;
          if odd(a[i,j]) then
            isnotodd:=false;
          if a[i,j]<>a[i,1] then
            isequal:=false;
        end;
      if iszero then
         writeln('В ',i,'-й строке все нули.');
      if isnotodd then
         writeln('В ',i,'-й строке все четные.');
      if isequal then
         writeln('В ',i,'-й строке все равные.');
    end;
  readln;
end.