program PascalGuru;
 
var s1,s2:string;
 
procedure INS(str1:string; var str2:string);
var i:integer;
begin
i:=(length(str2) div 2)+1;
if not odd(i) then delete(str2,i,1);
Insert(str1,str2,i);
end;
{----------------------------------}
begin
writeln('Vvedite dannye:');
writeln;
write('Stroka 1: '); readln(s1);
write('Stroka 2: '); readln(s2);
 
INS(s1,s2); {вызываем процедуру вставки}
 
writeln;
writeln('Rezult (Stroka 2): ',s2);
 
readln;
end.