let rec czyNieujemne(lista:rejestr) =
   match lista with
   | (k, (n, c))::tail -> if c<0 then false else czyNieujemne(tail)
   | [] -> true