программы с процедурой вставки

В строку s1 занесите свои фамилию и отчество (через пробел).
В строку s2 занесите свое имя.
С помощью процедуры вставки измените строку s1 таким образом, чтобы она содержала Ваши фамилию, имя, отчество.
Вывести на экран исходные строки (S1 и S2) , и строку s1, получившуюся после вставки.

var s1,s2:String;beginRead(s1,s2);WriteLn('s1 '+s1);WriteLn('s2 '+s2);Insert(' '+s2,s1,Pos(' ',s1));WriteLn(s1);end.