import Control.Monad
import Control.Applicative

check :: Int -> [Int] -> Bool
check x ys = x >= sum ys


cook :: [Int] -> [[Int]] -> Bool
cook [] _ = True
cook _ [] = True
cook xs ys = check (head xs) (map head ys) && cook (tail xs) (map tail ys)

main :: IO()
main = do
  (n:k:_) <- map (read :: String -> Int) . words <$> getLine
  unless (n == 0 && k == 0) $ do
    ref <- map (read :: String -> Int) . words <$> getLine
    fam <- map (map (read :: String -> Int) . words) <$> replicateM n getLine
    if cook ref fam
      then putStrLn "Yes"
      else putStrLn "No"
    main