{Insert.PAS} { Пример программы для процедуры Insert } Var S : String; Begin S:='D00M forever !'; Insert('& UNIX ', S, 6); WriteLn(S); { 'D00M & UNIX forever!' } End.