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

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

   Put_line(p.nazwa);
   RCI.Wstaw(p);
   Put_line(RCI.Nazwa(1));
end rcall;