freepascal.compiler/docs/refex/ex15.pp

Program Example15;

{ Program to demonstrate the Delete function. }

Var 
  S : String;

begin
  S:='This is not easy !';
  Delete (S,9,4); { S:='This is easy !' }
end.