http://www.adaconcept.com/programs/ontozorendszeres_szimulacio/szimulacio-segedmuveletek.adb
package body Szimulacio.Segedmuveletek is

   -- elemenkenti feldolgozas...
   procedure Stringbe_Masol(Mibe : in out String; Mit : String) is
      c1, c2 : Positive;
   begin
      c1 := Mibe'First;
      c2 := Mit'First;
      while c1 <= Mibe'Last and c2 <= Mit'Last loop
         Mibe(c1) := Mit(c2);

         c1 := Positive'Succ(c1);
         c2 := Positive'Succ(c2);
      end loop;
   end Stringbe_Masol;


end Szimulacio.Segedmuveletek;