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.