Вставка подстроки

Задача: 

Вставить в заданную позицию строки другую строку.

Описание переменных: 

s1, s2 – строки;
i – позиция вставки.

Алгоритм решения задачи: 
  1. Определить значения s1, s2 и i.
  2. С помощью процедуры insert() вставить s2 в s1, начиная с позиции i.
Программа на языке Паскаль: 

var
    s1,s2: string;
    i: byte;
begin
    write('Input string 1: ');
    readln(s1);
    write('Input string 2: ');
    readln(s2);
    write('Input position: ');
    readln(i);
    insert(s2,s1,i);
    writeln(s1);
readln
end.

Примечания: 

Процедура insert(subs, s, start) вставляет в строку s подстроку subs, начиная с позиции start.