Как запись добавить в файл?

PROGRAM zapisi_15; 
uses crt; 
const Max = 25;
Type sport = record 
 fam:string; 
 str:string; 
 tren:string; 
 god:Integer; 
 res:Integer; 
 end; 
Var 
 i,k,n,nalt:byte; 
 z:array[1..Max] of sport; 
 
Procedure minsport(Q:integer); 
var c,min,q1:integer; tr:string; 
Begin 
 min:=0; 
 Write('Vvedite trenera :'); 
 ReadLn(tr); 
 For i:=1 to Q do
 begin
 If z[i].tren=tr then
 begin
 If z[i].god>min then begin min:=z[i].god; q1:=i; end;
 end;
 end;
 If min=0 then begin WriteLn('takogo trenera net!'); exit;end;
 WriteLn('samyi molodoy sportsmen :',z[q1].fam,' ego vozrast :',(2011-(z[q1].god)),'let(',(z[q1].god),')goda');
End;
 
Procedure besttrener(Q:integer);
var max,q1:Integer; st:string;
Begin
 max:=0;
 Write('Vvedite strany :');
 ReadLn(st);
 For i:=1 to Q do
 begin
 If z[i].str=st then
 begin
 If z[i].res>max then begin max:=z[i].res; q1:=i; end;
 end;
 end;
 If max=0 then begin WriteLn('takoy strany net!'); exit;end;
 WriteLn('best trener :',z[q1].tren,' resultat :',z[q1].res)
End;
 
Procedure spisoktr(Q:Integer);
Begin
 For i:=1 to Q do
 begin
 WriteLn('trener :',z[i].tren:10,' strana :',z[i].str:10);
 end;
End;
 
BEGIN
 ClrScr;
 Write('kolichestvo sportsmenov:');
 ReadLn(n);
 For k:=1 to n do
 with z[k] do begin
 Write('familiya sportsmena ',k,' :');
 ReadLn(fam);
 Write('strana :');
 ReadLn(str);
 Write('trener :');
 ReadLn(tren);
 Write('god rojdeniya sportsmena :');
 ReadLn(god);
 Write('resultat :');
 ReadLn(res);
 end; 
 Repeat 
 Writeln('-- Menu --'); 
 Writeln('1. zadanie 1'); 
 Writeln('2. Zadanie 2'); 
 Writeln('3. Zadanie 3'); 
 Writeln('4. exit'); 
 Write('> '); 
 ReadLn(NAlt); 
 Case NAlt of 
 1:begin 
 minsport(n); 
 end; 
 2:begin 
 besttrener(n); 
 end; 
 3:begin 
 spisoktr(n); 
 end; 
 end; 
 until NAlt=4; 
END.