Type Tname=record
nazv:string[30];
janr:string[30];
end;
TFile=File of TName;

{VVOD FAILA}
procedure InFile(put:string);
var f:TFile; i,n:integer; name:Tname;
begin
assignfile(f,put);
if fileExists(put) then
begin
reset(f);
seek(f,filesize(f));
end
else rewrite(f);
write('vvedite kolichestvo zapisey ');
readln(n);
for i:=1 to n do
begin
write('vvedite nazvanie knigi ');
readln(name.nazv);
write('vvedite janr ');
readln(name.janr); writeln;
write(f,Name);
end;
closefile(f);
end;


procedure OutFile(put:string); {VIVOD}
var F:TFile; i:integer; Name:TName;
begin
assignfile(f,put);
reset(F); i:=0;
writeln('SPISOK KNIG');
if filesize(f)=0 then writeln('pust') else
while not eof(f) do
begin i:=i+1;
read(f,Name);
write(i,'. nazvanie knigi "',Name.nazv,'", ee janr ',name.janr); writeln;

end;
closefile(f);
end;

procedure search(put:string); {POISK JANRA PO NAZV}
var f:TFile; i:integer; Name:TName;
s:string;
flag:boolean;
begin
assignfile(f,put);
reset(f);
write('vvedite knigu ');
readln(s);
flag:=true;
while not eof(f) do begin
read(f,Name);
if s=Name.nazv then begin
writeln('janr etoi knigi - ', Name.janr); readln;
break;
end;
end;
if flag=false then writeln('takih net');
closefile(f);
end;

procedure del(put:string); {DELETE}
var f:TFile; i:integer; Name:Tname;
s:string; flag:boolean;
begin
assignfile(f,put);
reset(f);
write('vvedite knigu kotoruu nado udalit ');
readln(s);
flag:=false;
while not eof(f) do
begin
read(f,Name);
if s=Name.nazv then
begin
flag:=true; i:=filepos(f)-1;
break;
end;
end;
if flag=false then writeln ('net takih')
else
begin
seek(f, filesize(f)-1);
read(f,Name);
seek(f,i); write(f,Name);
seek(f, filesize(f)-1);
truncate(f); end; closefile(f); end;


begin
Infile('bibl.dat');
outfile('bibl.dat'); readln;
search('bibl.dat'); readln;
del('bibl.dat'); readln;
outfile('bibl.dat'); readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.