protected type question

[shoko2004@hotmail.com (shoko)]

i have the following package:

generic
   type Message is private; 
package Broadcasts is
   protected      type Broadcast is 
      procedure Send(This_Message : in Message); 
      procedure Send_all(This_Message : in Message); 
      entry wait(A_Message :    out Message ); 
   private
      Message_Arrived:Boolean:=False;
      The_Message:Message;
   end  Broadcast ;
end   Broadcasts ;
---------------------------------------------------------------- 

package body Broadcasts  is
   protected body Broadcast is
      entry wait(A_Message : out Message ) when Message_Arrived is 
      begin
         if wait'Count=0 then
            Message_Arrived:=False;
         end if;
            A_Message:=The_Message;
      end  wait;

      procedure Send (This_Message : in     Message ) is 
      begin
         if wait'Count>0 then
            Message_Arrived:=True;
            The_Message:=This_Message;
         end if;
      end Send;
      
      procedure send_all(This_Message : in     Message )is
      begin
          Message_Arrived:=True;
          The_Message:=This_Message;
      end send_all;
   end Broadcast ;
end   Broadcasts;
 ---------------------------------------------------------------- 

in the main procedure i am trying to create a task
1.I get compiltaion error:"wait" not decllared in "str_broadcasts"
what am i doing wrong?

2.In the broadcasts package i use send all procedure that will free
all waiting tasks is this is the right way?


 
with broadcasts;
with Ada.Strings.Unbounded;
use  Ada.Strings.Unbounded;

procedure main_broadcast is
   
  subtype message is  Unbounded_String; 
  package str_broadcasts is new broadcasts(message);
  a:message :=To_Unbounded_String("hello");
  
   TASK messages;
   
   task body messages is
      m:message;
   begin
      loop
          str_broadcasts.wait(a);<-- compilation error
      end loop;   
   end messages;
begin
   
   null;
end main_broadcast;