Получить новую строку, содержащую первые N1 символов строки S1 и последние N2 символов строки S2 - PascalABC.NET

Формулировка задачи:

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

Решение задачи: «Получить новую строку, содержащую первые N1 символов строки S1 и последние N2 символов строки S2»

Листинг программы

uses crt;
var n1,n2:integer;
    s,s1,s2:string;
begin
writeln('Введите 1 строку');
read(s1);
repeat
write('Введите количество символов <=',length(s1));
read(n1);
until n1<=length(s1);
writeln('Введите 2 строку');
read(s2);
repeat
write('Введите количество символов <=',length(s2));
read(n2);
until n2<=length(s2);
delete(s1,n1+1,length(s1)-n1);
delete(s2,1,length(s2)-n2);
s:=s1+s2;
write(s);
End.

Объяснение кода листинга программы

В начале программы объявляются переменные: n1, n2 - целочисленные, s, s1, s2 - строковые.
Выводится сообщение Введите 1 строку и считывается первая строка s1.
Пользователю предлагается ввести количество символов для первой строки (n1) не больше длины s1.
Повторяется шаг 3 до тех пор, пока n1 не станет больше или равным длине s1.
Выводится сообщение Введите 2 строку и считывается вторая строка s2.
Пользователю предлагается ввести количество символов для второй строки (n2) не больше длины s2.
Повторяется шаг 6 до тех пор, пока n2 не станет больше или равным длине s2.
В s1 удаляются символы с позиции n1+1 до конца строки.
В s2 удаляются первые n2 символов.
Строки s1 и s2 объединяются в одну строку s.
Выводится результат s.
Конец программы.