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;