Копирование части строки

Задача: 

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

Описание переменных: 

s1, s2 – первая и вторая строка;
n – позиция, с которой будет копироваться строка;
len – длина копируемой части строки.

Алгоритм решения задачи: 
  1. Записать в переменную s1 исходную строку.
  2. Узнать начало второй строки и ее длину.
  3. Присвоить s2 результат выполнения функции copy().
Программа на языке Паскаль: 

var
    s1,s2: string;
    n,len: byte;
begin
    write('Input string: ');
    readln(s1);
    write('Place of start of copy: ');
    read(n);
    write('Length of copy: ');
    readln(len);
    s2 := copy(s1,n,len);
    writeln('Your copy: ',s2);
readln
end.

Примечания: 

Функция Copy (s, start, len) возвращает подстроку длиной len, начинающуюся с позиции start строки s.