Fix ncurses examples.

packages/ncurses/examples/menu_demo.pp

@@ -52,7 +52,8 @@ begin
 
         { Create items }
         n_choices := high(choices);
-        getmem(my_items,n_choices*sizeof(pitem));
+        getmem(my_items,(n_choices+1)*sizeof(pitem));
+        my_items[n_choices]:=nil;
         for i:=0 to n_choices-1 do
           my_items[i] := new_item(choices[i], choices[i]);
 

packages/ncurses/examples/tpad.pp

@@ -560,7 +560,8 @@ begin
       doupdate();
     until (ch = chtype('q')) OR (ch = KEY_F(10));
   finally
-    ncpad.destroy;
+    if ncpad <> nil then  {if parameters are wrong "ncpad" is not even created}
+      ncpad.destroy;
     curs_set(1);
     endwin();
   end;