var
  outFile : text;
begin
  assign(outFile, 'test.txt');
  append(outFile);
  writeln(outFile, 'this is the output');
  writeln(outFile, 'of file_append');
  close(outFile)
end.