procedure Delete(var S: String; iFrom, iCount: LongInt)
Удаляет из строки iCount символов, начиная с позиции iFrom. Нумерация символов начинается с 1.
Параметры: