В новый файл переписать информацию о книгах, выпущенных заданным издательством

Type
Book=record
  shfr:string[7];
  Fam,Naz,Izd:string[80];
  god:integer;
end;
var
f,f1:text;
buf:Book;
s:string[40];
begin
 writeln('Введите издательство');
 readln(s);
  assign(f,'c:/output.txt');
  assign(f1,'c:/input.txt');
  reset(f);
  rewrite(f1);
    while not EOF(f) do
     begin
       readln(f,buf.shfr);
       readln(f,buf.Fam);
       readln(f,buf.Naz);
       readln(f,buf.Izd);
       readln(f,buf.god);
        if buf.Izd=s then
          begin
            writeln(f1,buf.shfr);
            writeln(f1,buf.Fam);
            writeln(f1,buf.Naz);
            writeln(f1,buf.Izd);
            writeln(f1,buf.god);
          end;
     end;
   close(f1);
   close(f);
   reset(f);
   writeln('----------------------------------');
   writeln('содержимое  исходного файла');
   writeln('----------------------------------');
     while not EOF(f) do
       begin
         readln(f,buf.shfr);  write(buf.shfr,'  ');
         readln(f,buf.Fam);   writeln(buf.Fam);
         readln(f,buf.Naz);   writeln(buf.Naz);
         readln(f,buf.Izd);   write(buf.Izd,'  ');
         readln(f,buf.god);   writeln(buf.god);
       end;
    writeln('----------------------------------');
      reset(f1);
   writeln;
   writeln('----------------------------------');
   writeln('содержимое  нового файла');
   writeln('----------------------------------');
     while not EOF(f1) do
       begin
         readln(f1,buf.shfr);  write(buf.shfr,'  ');
         readln(f1,buf.Fam);   writeln(buf.Fam);
         readln(f1,buf.Naz);   writeln(buf.Naz);
         readln(f1,buf.Izd);   write(buf.Izd,'  ');
         readln(f1,buf.god);   writeln(buf.god);
       end;
   writeln('----------------------------------');
    close(f);
    close(f1);
end.