type
  tomb_tipus = array [1..50] of integer;