Даны два слова (первое длиннее второго ) . Заменить во втором слове соответствующее количество символов на первое слово- Pascal(Паскаль)

Uses
 CRT;
Var
 s,s2:string;
begin
 repeat
  readln(s,s2);
 until length(s)>length(s2);
 delete(s,1,length(s2));
 s:=s2+s;
 write(s);
end.

uses crt;
var sl2,sl1,s,sl:string;
n,i,m:byte;
begin
clrscr;
write('vvedite pervoe slovo: ');
readln(sl1);
write('vvedite vtoroe slovo: ');
readln(sl2);
n:=length(sl2);
m:=length(sl1);
for i:=(n+1) to m do
s:=s+sl1[i];
sl:=sl2+s;
writeln(sl);
readln;
end.