Чтение в типизированный файл и сортировка данных в типизированном файле

 procedure sort_by_tip_f;
 var bj,bi,obmen,nobm,bn,n,i,j :integer;
 begin
  i:=0;
  kz:=kz+1;
  for j:=i to razmer-2 do begin
   seek(f,j);{не является обязательным в этом месте, указатель в файле и сам передвигается при чтении}
   read(f,bj);
   nobm:=j;
   obmen:=bj;
   for n:=j+1 to razmer-1 do begin
    seek(f,n);
    read(f,bn);
    if bn>obmen then begin
     nobm:=n;
     obmen:=bn;
    end;
   end;
   if obmen<>j then begin
    seek(f,nobm);
    write(f,bj);
    seek(f,j);
    write(f,obmen);
   end;
  end;
 end;

type zap=record
             name:string;
             chislo:integer;
             end;
       tfile=file of zap;

type
 zap=record
  nazv:string;
  num:integer;
 end;
 
var kz:integer;
    f:file of zap;
    t:text;
    ii:integer;
    c:char;
    element:zap;
    s:string;
 begin
  assign(t,'nput.txt');
  reset(t);
  assign(f,s);
  rewrite(f);
 
  while not eof(t) do begin
   repeat
    read(t,c);
    if c<>' ' then element.nazv:=element.nazv+c;
   until c=' ';
   read(t,element.num);
   read(f,element);{здесь выдается ошибка}
  end;
end.

while not eof(t) do 
  begin
   readln(t,s);
   element.nazv:=copy(s,1,pos(' ',s)-1);//в текстовом файле название и число записаны через пробел
   delete(s,1,pos(' ',s)-1);
   val(s,element.num,ii);
   write(f,element);
  end;

assign(f,s);
  rewrite(f);

type
 zap=record
  nazv:string;
  num:integer;
 end;
 
var kz:integer;
    f:file of zap;
    t:text;
    ii:integer;
    c:char;
    element:zap;
    s:string;
 begin
  assign(t,'nput.txt');
  reset(t);
  assign(f,s);
  rewrite(f);
 
  while not eof(t) do begin
   read(t,s);
   element.nazv:=copy(s,1,pos(' ',s)-1);
   delete(s,1,pos(' ',s)-1);
   val(s,element.num,ii);
   write(f,element);
  end;
 
  close(t);
  close(f);
end.

readln(t,s); так читают строку из текстового файла

seek(f,0);
while not oef(f) do begin
  readln(f,element);
  writeln(n,element);{n - текстовый файл, куда записываются данные с тип. файла f }
end;

seek(f,0);
while not oef(f) do 
 begin
  read(f,element);
  writeln(n,element.nazv,' ',element.num);{n - текстовый файл, куда записываются данные с тип. файла f }
end;

type
 zap=record
  nazv:string;
  num:integer;
 end;
 
var kz:integer;
    f:file of zap;
    t,n:text;
    ii:integer;
    c:char;
    element:zap;
    s:string;
 begin
  assign(t,'nput.txt');
  reset(t);
  assign(f,s);
  rewrite(f);
  assign(n,'output.txt');
  rewrite(n);
  while not eof(t) do begin
   readln(t,s);
   element.nazv:=copy(s,1,pos(' ',s)-1);
   delete(s,1,pos(' ',s)-1);
   val(s,element.num,ii);
   write(f,element);
  end;
  seek(f,0);{в режиме отладки ошибка здесь}
  while not eof(f) do begin
  read(f,element);
  writeln(n,element.nazv,' ',element.num);
  end;
  close(t);
  close(f);
  close(n);
end.

assign(f,s);//здесь нужно имя файла напрямую, или присвоить его переменной s
  rewrite(f);