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.