[lmikle]

А чего тут делать?

Код:

function IsRowEmpty(A : Array [1..M,1..N] Of Integer; R : Integer) : Boolean;
var
  I : Integer;
begin
  Result := True;
  For I := 1 To N Do 
    Begin
       Result := A[I,R] = 0;
       If Not Result Then Break;
    End;
end;

function IsColEmpty(A : Array [1..M,1..N] Of Integer; C : Integer) : Boolean;
var
  I : Integer;
begin
  Result := True;
  For I := 1 To M Do 
    Begin
       Result := A[C,I] = 0;
       If Not Result Then Break;
    End;
end;