{* Удаление подстроки *}

Unit PODSTRDEL;
Interface
Implementation
Begin
 writeln('

Удаление из строки ее части с заданной позиции и заданной длины.

s – строка;
i – номер символа в строке, начиная с которого будет осуществляться удаление;
len – длина удаляемой последовательности символов.

');
End.

Program pas16133;

Uses podstrdel.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  s   : String;
  i   : byte;
  len : byte;
Begin
  write('Input String: ');
  readln(s);
  write('Place Of start To delete: ');
  readln(i);
  write('Length To delete: ');
  readln(len);
  delete(s, i, len);
  writeln(s);
  readln
End.