Скопировать часть строки с определенной позиции и определенной длины в другую строку - Pascal

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

Ввести с клавиатуры строку. Скопировать часть строки с определенной позиции и определенной длины в другую строку. Номер позиции и количество символов ввести с клавиатуры. Вывести скопированную строку на экран

Решение задачи: «Скопировать часть строки с определенной позиции и определенной длины в другую строку»

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

var
  s, s1, s2: string;
  n, kol: integer;
 
begin
  readln(s,s1);
  readln(n, kol);
  s2 := copy(s, n, kol); //мыла
  insert(s2, s1, 8);
  writeln(s1);
end.

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

В данном коде происходит следующее:

Сначала мы считываем три строки с помощью функции readln.
Первая строка s содержит исходную строку.
Вторая строка s1 будет использоваться как промежуточный буфер.
Третья строка s2 будет использоваться для хранения копии части исходной строки.
Затем мы считываем три целых числа с помощью функции readln.
Первое число n содержит позицию начала копирования в исходной строке.
Второе число kol содержит длину копируемой части.
Затем мы копируем часть строки с позиции n и длиной kol в строку s2 с помощью функции copy.
Затем мы вставляем содержимое строки s1 в строку s2 на позиции 8 с помощью функции insert.
Наконец, мы выводим содержимое строки s1 с помощью функции writeln.