Program PascalGuru;
 
var s,x:string;
    i:integer;
 
{----------------------------------}
begin
write('Vvedite stroky1: '); readln(s);
write('Vvedite stroky2: '); readln(x);
 
Insert(x, s, 1); {реализовываем с помощью вставки}
 
writeln;
writeln('Stroka1: ',s);
 
readln;
end.