procedure Delete(var S: AnyString; Index, Count: Integer);
Выполняет удаление заданного количества символов Count из указанной строки S, начиная с позиции S[Index].
Если значение Index больше, чем длина строки S, то никакие символы не удаляются.
Если для значения Count указано бо́льшее количество символов, чем доступно в строке S с указанной позиции S[Index], то функция удалит только имеющиеся до конца строки символы.