16.43.4. procedure Delete

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

Удаляет из строки S несколько символов начиная с позиции from, количество удаляемых символов задается параметром count.

var

S : string;

begin

S := 'У попа была кошка или собака';

Delete(S, 12, 10);

AddToLog(S);

end.