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.