Синтаксис:
procedure Delete(var s: srting; НомерСимвола: integer; Сколько: integer);
Действие: Удаляет из строки s ее часть, которая начинается с символа с номером п и состоит из i символов.