with Ada.Text_IO, RCI, Types;
use  Ada.Text_IO;
with Remote_Key; use Remote_Key;
with Remote_Object;

procedure rcall is
   p: Types.Wpis;
   key_reference: Remote_Key_Reference;
begin
   p.numer := Remote_Key'Partition_ID; 
   p.nazwa(1..5) := "Darek";

   key_reference := Remote_Object.key_object'access;
   Put_line(p.nazwa);
   RCI.Wstaw(p, key_reference);
   Put_line(RCI.Nazwa(1));
   Put_line("Klucz:" & Positive'Image(Get_key(key_reference)));
end rcall;