Процедура Delete

Объявление процедуры:

procedure Delete (var s : String; index, count : Integer);

Процедура удаляет из строки S до Count символов, начиная с позиции Index.

Если count определяет больше символов, чем возможно, удаляется максимально возможное число символов.

Если index выходит за пределы строки, удаление не производится.

Обратите внимание, так как строка передается в процедуру по ссылке, то в процедуру можно передавать только имя строки, но не значение.

Например, пусть значение строки s равно ‘Десна – прекрасная река’. После вызова процедуры Delete (s, 9, 11) значение строки s станет ‘Десна –река’.