Как сохранить учётные данные в новом созданном файле? - PascalABC.NET

type
  child=record
        name:string;
        year:integer;
        month:integer;
        day:integer;
        height:integer;
        weight:integer;
        schep:string;
        teacher:string;
  end;
 
var arr:array[1..100] of child;
    buff:string;
    n,i:integer;
    c:char;
    t:text;
 
begin
    assign(t,'E:/lab10.inf');
    reset(t);
    n:=1;c:='1';
        while (not eof(t)) do     //поки не кінець файлу
        begin
           buff:='';
           read(t,c);
           while c<>' ' do
           begin
                buff:=buff+c;
                read(t,c);              //посимвольно зчитуємо до пробілу
           end;
           arr[n].name:=buff;           //ім'я зчитане
           while c=' ' do read(t,c);    //зчитуємо всі зайві пробіли
           buff:=c;read(t,c);
           buff:=buff+c;              
           val(buff,arr[n].day,i);     
           read(t,c,c);
           buff:=c;read(t,c);buff:=buff+c;
           val(buff,arr[n].month,i);
           read(t,c,c);
           buff:='';
           while c<>' ' do
           begin
                buff:=buff+c;
                read(t,c);
           end;
           val(buff,arr[n].year,i);   
           //дата зчитана
           while c=' ' do read(t,c);
           buff:='';
           while c<>' ' do
           begin
                buff:=buff+c;
                read(t,c);
           end;
           val(buff,arr[n].height,i);  
 
           while c=' ' do read(t,c);
           buff:='';
           while c<>' ' do
           begin
                buff:=buff+c;
                read(t,c);
           end;
           val(buff,arr[n].height,i);
 
           while c=' ' do read(t,c);
           buff:='';
           while c<>' ' do
           begin
                buff:=buff+c;
                read(t,c);
           end;
           arr[n].schep:=buff;
           readln(t,buff);
           while (buff[1]=' ') do delete(buff,1,1);
           arr[n].teacher:=buff;
           n:=n+1;
        end;
       n:=n-1;
       for i:=1 to n do   
       begin
           if (arr[i].schep='True') then      
           if (2015-arr[i].year>=3) then     
           begin
                if (2015-arr[i].year=3) then  
                 if (arr[i].month<7) then continue; 
                write(arr[i].name,' ',arr[i].day,'.',arr[i].month,'.',arr[i].year);
                writeln(' ',arr[i].height,' ',arr[i].weight,' ',arr[i].schep,' ',arr[i].teacher);
           end;
 
       end;
    close(t);
end.