Типизированные файлы. Сведения о книгах состоит из фамилии автора, года и названия книги

type spisok=record
familia:string;
nomer:integer;
marka:string;
end;
 
var
svedeniya:File of spisok;
s:spisok;
n,i,k,:byte;
STx:string;
const kol_marok=1;
m :array[1..kol_marok] of string=('èíôîðìàòèêà') ;
begin
assign(svedeniya,'F');
rewrite(svedeniya);
write('êîëè÷åñòâî êíèã :');
readln(n);
for i:=1 to n do
begin
write(i:1,'àâòîð :');
readln(s.familia);
write('ãîä èçäàíèÿ :');
readln(s.nomer);
write('íàçâàíèå êíèãè :');
readln(s.marka);
write(svedeniya,s);
end;
writeln('ôîðìèðîâàíèå çàêîí÷åíî');
close(svedeniya);
writeln('ââåäè íàçâàíèå êíèãè, ÿ ñêàæó åñòü òàêàÿ êíèãà èëè íåò :');
readln(STx);
writeln('àâòîð ',STx);
k:=0;
reset(svedeniya);
while not eof(svedeniya) do
begin
read(svedeniya,s);
if s.marka=STx then
begin
k:=1;
writeln(s.familia);
end;
end;
close(svedeniya);
if k =0 then writeln('òàêîé êíèãè íåò.');
readln;
end.

 uses crt;
 
 type knigi = record
         fam, name : string[20];
               god : integer;
      end;
 
 var f:file of knigi;
 S: knigi;
 i,n:integer;
 
 begin
      assign(f,'input.txt');
      rewrite(f);
 Write('Количество книг: '); readln(n);
 For i:=1 to n do
 with s do
 begin
    write(i,'. Название книги: '); readln(name);
    write('Фамилия автора: '); readln(fam);
    write('Год издания: '); readln(god);
    write(f,s);
    clrscr;
 end;
 Writeln('Типизированный файл создан.')
    close(f);
 end.

 uses crt;
 
 type knigi = record
         fam, name : string[20];
               god : integer;
      end;
 
 var f,g:file of knigi;
 S: knigi;
 Nam : string[15];
 i,n:integer;
 
 begin
 write('Название книги: '); readln(nam);
      assign(f,'input.txt');
      assign(g,'output.txt');
      reset(f);
      rewrite(g);
 While not eof (f) do
  begin
  read(f,s);
  If s.name = nam then
     begin
     writeln(s.name, s.fam:15,s.god:15);
     write(g,s);
     end;
  end;
 Writeln('Файлы записаны .');
    close(f);
    close(g);
 end.

uses crt;
 
 type knigi = record
         fam, name : string[20];
               god : integer;
      end;
 
 var f,g:file of knigi;
 S: knigi;
 Nam : string[15];
 i,n:integer;
 
 begin
 write('Название книги: '); readln(nam);
      assign(f,'input.txt');
      assign(g,'output.txt');
      reset(f);
      rewrite(g);
 While not eof (f) do
  begin
  read(f,s);
  If s.name = nam then
     begin
     writeln(s.name, s.fam:15,s.god:15);
     write(g,s);
     end;
  end;
 Writeln('Файлы записаны .');
    close(f);
    close(g);
 end.

var f,g:file of knigi;