AppendToTextFile

type TArrString = array of string;

procedure AppendToTextFile(FileName : string; const contents : TArrString);
var f : text;
    elem : string;
begin
   assign(f, FileName);
   append(f);
   for elem in contents do
      writeln(f, elem);
   close(f);
end;