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

Unit STRCOPY;
Interface
Implementation
Begin
 writeln('

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

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

');
End.

Program pas30774;

Uses strcopy.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  s1  : String;
  s2  : String;
  n   : byte;
  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.