Процедура Delete

 

Procedure Delete(var S: string; Index, Count: Integer);

Удаляет из строки S подстроку, задаваемую параметрами Index и Count.

Index – номер первого удаляемого символа.

Count – число удаляемых символов.

 

Пример использования:

var

s: string; {строка}

begin

s := 'Тяжелый и горячий утюг'; {Исходное содержание

строки}

writeln(s); {Выводим исходную строку}

delete(s, 9, 10);{Удаляем из строки 10 символов, начиная с 9-го,

то есть удаляется подстрока ‘и горячий ’}

writeln(s); {Выводится строка ‘Тяжелый утюг’}

end.