Задача с матрицей \Дельфи\

function GetColNumber(Matrix: TMatrix): Word;
var
  i, j, Count: Integer;
begin
  Result := 0;
  for i := 1 to Matrix.ColCount do
  begin
    Count := 0;
    for j := 1 to Matrix.RowCount do
      if Matrix[j, i] > 0 then
        break
      else
        Inc(Count);
    if Count = Matrix.RowCount then
    begin
      Result := i;
      Exit
    end
  end
end;