Turbo Pascal 'Append' Procedure