[Pascal] - písanie do .txt súboru s ponechaním predchodzieho obsahu

//vypyta n slovicok (sjl,eng) zapise ich do 2 suborov(svk.txt;eng.txt)
//vypis na obrazovku - Deň - Day
program engsvkspolu;

{$APPTYPE CONSOLE}

uses
SysUtils;

var f,g,h:text;
svk,eng:string;
i,n:integer;
begin
write('Zadajte pocet slovicok: ');
readln(n);
assign(f,'eng.txt');
assign(g,'svk.txt');
assign(h,'svk-eng.txt');
rewrite(f);
rewrite(g);
rewrite(h);
for i:=1 to n do
begin
write('Zadajte slovenske slovo: ');
readln(svk);
write('Zadajte preklad v anglictine daneho slova: ');
readln(eng);
writeln(f,eng);
writeln(g,svk);
writeln(h,svk,' - ',eng);
end;
close(f);
close(g);
close(h);
writeln;
reset(f);
reset(g);
reset(h);
while NOT eof(f) do
begin
readln(f,eng);
readln(g,svk);
writeln(eng,' - ',svk);
end;
readln;
end.