with Ada.Text_IO, RCI, Types;
use  Ada.Text_IO;
with Callback;

procedure rcall is
   p: Types.Wpis;
begin
   p.numer := 1;
   p.nazwa(1..5) := "Darek";

   Put_line(p.nazwa);
   RCI.Wstaw(p, Callback.Return_key'access);
   Put_line(RCI.Nazwa(1));
end rcall;