VAR S: string; begin s:='Honest Lincoln'; insert('Abe ', s, 8); writeln(s); end.