Program Delete1;

{ Program to demonstrate the Delete function. }

Var
  S : String;

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