Надо заменить функцию rewrite на append

[artimen1996]

Помогите пожалуйста заменить функцию rewrite на append в процедуре sozd.
Или же скажите как можно сделать так чтобы слово в конец файла писала

Program slovarb_eng_rus__rus_eng;
Uses crt;
label 5;
type spisok=record
     sl: string;
     pr: string;
     end;
FT= file of spisok;
Var a:ft;
    i,z,k:integer;
    s:real;
Procedure Sozd (var a: ft);  
Var i,j:integer;      
    zk:spisok;        
    zz:integer;       
begin
textbackground(white);
textcolor(red);
clrscr;
 
rewrite(a);
j:=1;
 while j<>100 do
          begin
 
          write ('Slovo: ');
          readln (zk.sl);
          write ('Perevod: ');
          readln (zk.pr);
          write (a,zk);
          writeln ('Esli konec zapisi to naberite 1 esli net to 2');
          readln(zz);
          if zz=1 then exit;
          end;
close (a);
end;
Procedure help (var a: ft);
Var i:integer;
    zk:spisok;
begin
textbackground(white);
textcolor(red);
clrscr;
 
 
 writeln ('╔═════════════════════════════════════════════════════╗');
 writeln ('║                O programme                          ║');
 writeln ('╠═════════════════════════════════════════════════════╣');
 writeln ('║ Eto Russko-angliyskiy slovarb.                      ║');
 writeln ('║ V slovare Rus-eng slov  20000                       ║');
 writeln ('║ Eng-rus slov  40000.                                ║');
 writeln ('╚═════════════════════════════════════════════════════╝');
 writeln ('╔═════════════════════════════════════════════════════╗');
 writeln ('║                Kak Pol3ovats9                       ║');
 writeln ('╠═════════════════════════════════════════════════════╣');
 writeln ('║ Dl9 togo, 4tobi vesti slovo na)I(mite na 1-Dobavitb ║');
 writeln ('║ Dl9 togo, 4tobi nayti slovo na)I(mite na 2-Poisk    ║');
 writeln ('║ Dl9 togo, 4tobi viyti na)I(mite na 4-Vixod          ║');
 writeln ('╚═════════════════════════════════════════════════════╝');
 
 
end;
 
Procedure poisk (var a:ft); {poisk slova}
var vibor,i:integer;
    zk:spisok;
    slovo:string;
begin
textbackground(white);
textcolor(red);
clrscr;
 
reset (a);
writeln('Viberite 1.Eng_Rus, 2.Rus_Eng');
 readln(vibor);
  clrscr;
 if vibor=1 then begin
 writeln ('Vvedite slovo dl9 poiska ');
 readln (slovo);
 
 writeln ('         Po Zaprosy:');
writeln('╔══════════════════════════════');
writeln('║       Slovo - Perevod        ');
writeln('╠══════════════════════════════');
while not eof(a) do
 begin
  read (a,zk);
  if zk.sl=slovo then
  begin
    write ('║       ',zk.sl);
    write (' - ',zk.pr,'');
 
    writeln;
    writeln ('╚══════════════════════════════');
  end;
if zk.sl<>slovo then begin  writeln('║       Slovo ne naydeno');
writeln('╚══════════════════════════════');
end;
  end;
  end;
 if vibor=2 then begin
 writeln ('Vvedite slovo dl9 poiska ');
 readln (slovo);
 
  writeln ('         Po Zaprosy:');
 writeln ('╔══════════════════════════════');
 writeln ('║        Slovo - Perevod');
 writeln ('╠══════════════════════════════');
while not eof(a) do
 begin
  read (a,zk);
  if zk.pr=slovo then
  begin
    write ('║       ',zk.pr);
    write (' - ',zk.sl,'');
 
    writeln;
    writeln ('╚══════════════════════════════');
  end;
 
end;
if zk.pr<>slovo then begin  writeln('║       Slovo ne naydeno');
writeln('╚══════════════════════════════');
end;
 end;
close(a);
end;
 
begin
clrscr;
5:
assign (a,'work.txt');
writeln ('       Menu     ');
writeln ('1: Dobavitb ');
writeln ('2: Poisk ');
writeln ('3: Pomosh ');
writeln ('4: Vixod ');
readln (z);
 
 case z of
  1:sozd(a);
  2:poisk(a);
  3:help(a);
  4:exit;
  end; goto 5;
 
readln
end.

[Stilet]

Помогите пожалуйста заменить функцию rewrite на append в процедуре sozd.

Ты что не в состоянии убрать слово rewrite и поставить вместо него append?

[Aranea tela telam]

береш открываеш блокнот кидаеш все туда потом правка->заменить там пишиш что надо заменить