fpcdocs/refex/ex33.pp


1
2
3
4
5
6
7
8
9
10
11

Program Example33;

{ Program to demonstrate the Insert function. }

Var S : String;

begin
  S:='Free Pascal is difficult to use !';
  Insert ('NOT ',S,pos('difficult',S));
  writeln (s);
end.