16.43.3. procedure Insert procedure Insert(S: String; var S2: String; pos: Integer); Вставляет строку S в позицию pos строки S2. Пример: var S : string; begin S := 'У попа собака'; Insert('была ', S, 8); AddToLog(S); end.