Winnie Leung    F.4CA   (22)
HW 3  (III)  ---- BK2 P.19 #2
program sentence(input, output);
uses wincrt;
var  string1, string2, string3, k, sent :string; 
     n, p :integer;
begin
  write(' Please enter a sentence: ');
  readln(string1);
  write(' Please enter a phrase/word: ');
  readln(string2);
  write(' Please enter an insertion position: ');
  readln(n);
  writeln('The new sentence is: ');
  p :=length(string1)-n+1;
  string3 :=copy(string1, n, p);
  k :=copy(string1, 1, n-1);
  sent:= k + string2 + ' ' + string3;
  write(sent)
end.