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.