[AND_REY]

Ещё вариант:

Код:

Function TRX(M: TMatrix; var x,y: Integer): Boolean;//х,у-размер вых. М 
Var
 tempM: TMatrix;
 P: Boolean;
 i, j: Integer;
begin
 SetLength(tempM, Length(M), Length(M[0]));
 x:= -1; y:= -1;
 For i:= 0 To Length(M) - 1 Do
  begin
   P:= False;
   For j:= 0 To Length(M[0]) - 1 Do if M[i,j] <> 0 Then
    begin
     Inc(x);
     P:= True;
     Break;
    end;
   if P Then For j:= 0 To Length(M[0]) - 1 Do tempM[x,j]:= M[i,j];
  end;
 For j:= 0 To Length(tempM[0]) - 1 Do
  begin
   P:= False;
   For i:= 0 To Length(tempM) - 1 Do if tempM[i,j] <> 0 Then
    begin
     Inc(y);
     P:= True;
     Break;
    end;
   if P Then For i:= 0 To Length(M) - 1 Do M[i,y]:= tempM[i,j];
  end;
 SetLength(M, x, y);
end;