Перезапись инфы из одного файла в текстовый

[MIKE11IPME]

ммм как мне из моего файла f1:file of zap_st перезаписать информацию в f2:text ?
а вот сама программа

program fuel;
uses crt;

type
zap_st = record
gd:string;
vyz:string;
kf:byte;
ks:real;
end;

var f1:file of zap_st; f2:text;  dt:string; N,i:byte; aka:zap_st; gd1:string;vyz1:string;
kf1:byte;ks1:real;K:char;

procedure sozdfile;
begin
 writeln('nazovite im9 file:');
 readln(dt);
 assign(f1,dt);
 rewrite(f1);
 writeln('skolbko zapiseu xotite sdelatb?');
 readln(N);
end;

procedure zapisb;
var r:byte;
begin
for r:=1 to N do
 begin
 with aka do begin
 writeln('misto');
  readln(gd);
  writeln('Wyz');
  readln(vyz);
  writeln('kol-vo fakylbtetov');
  readln(kf);
  writeln('kol-vo stydentov');
  readln(ks);
  end;
 write(f1,aka);

 clrscr;

 end;
end;

procedure perez;
begin
clrscr;
writeln('BbI YBEPEHbI 4TO XOTITE IIEPEZAPISATb FILE?(Y/N)');
readln(K);
 if K='Y' then begin
  assign(f1,dt);
  rewrite(f1);
  writeln('skolbko zapiseu xotite sdelatb?');
  readln(N);
  zapisb;
 end;
end;

procedure dozapisb;
var t:byte;
begin
 reset(f1);
 t:=0;
  while not eof(f1) do
   begin
    inc(t);
    seek(f1,t);
   end;
 writeln('skolbko zapiseu xotite sdelatb?');
 readln(N);
 zapisb;
end;


procedure sort;
var gg,g:longint;X,Y:zap_st;
begin
reset(f1);
for g:= FileSize(f1)-1 downto 1 do
 for gg:=0 to g-1 do
 begin
  seek(f1, gg);
  read(f1,X,Y);
  if X.gd > Y.gd then
  begin
   seek(f1, gg);
   write (f1, Y, X);
  end;
 end;
close(f1);
end;

begin
sozdfile;
zapisb;
sort;
{perez;
dozapisb;}
readln;
end.