Процедура Insert

Объявление процедуры:

procedure Insert (source: String; var s: String; index: Integer);

Процедура вставляет строку source в строку s, начиная с позиции index.

Если index < 1, он заменяется единицей. Если индекс больше длины строки, source добавляется к концу строки s.

Так же как и в предыдущем случае, строка s передается в процедуру по ссылке.

Например, пусть значение строки s равно ‘Десна – река’. После вызова процедуры Insert (‘прекрасная ’ s, 9) значение строки s станет ‘Десна – прекрасная река’.