Создать файл, содержащий сведенья о личной коллекции книголюба

program ZZ;
 
Type kniga= record ;
Sihr : string;
AV: string;
Naz:   string;
God: integer;
NomST:   integer;
NomSH:    integer;
 
Var D:array [1..10] of kniga;
    F:text; i:byte;
    
begin
Assing (F,'S.txt');
Rewrite (F);
for i;= 1 to 10 do
begin
Readln (Sihr); Writeln (F,Sifr);
Readln (AV); Writeln (F,AV);
Readln (Naz); Writeln (F,Naz);
Readln (God); Writeln (F,God);
Readln (NomST); Writeln (F,NomST);
Readln (NomSH); Writeln (F,NomSH);
close (F);
end;
end.
 
Var X,Z,y: string; XX,k : integer;
begin Assing (F,'S.txt');
Writeln ('Введи Название книги');
Readln (Y);
reset (f);
readln(XX);
writeln ('Список');
for i;= 1 to 10 do
with D[i] do
begin
Readln (Sihr); Writeln (F,Sifr);
Readln (AV); Writeln (F,AV);
Readln (Naz); Writeln (F,Naz);
Readln (God); Writeln (F,God);
Readln (NomST); Writeln (F,NomST);
Readln (NomSH); Writeln (F,NomSH);
close (F);
end;
for i;= 1 to 10 do
with D[i] do
if (X=AV) and (NAZ=Y) then
Writeln ('книга',X,  ',Y,'Находится на стелаже ',NomST.'Шкаф=',NomSH)
if (AV=Y) then Writeln (Naz);
if XX= God then K:=k+1;
end;
Writeln ('Кол-во книг,Выпущ.В' ,XX,'Году=',K);
end.