Даны два числа N1 и N2 еще строки S1 и S2. Получить из этих строк новую строку объединив N1 первых символов строки S1и N2 последних символов строки S2 — Pascal(Паскаль)

var
 n1,n2:integer;
 s1,s2,r:string;
begin
 write('n1 n2: ');
 readln(n1,n2);
 write('1-я строка: ');
 readln(s1);
 write('2-я строка: ');
 readln(s2);
 delete(s1,n1+1, length(s1)-n1+1);
 delete(s2,1, length(s2)-n2);
 r:=s1+s2;
 writeln(r);
 readln;
end.