Создать типизированный файл catalog.dat, содержащий сведения о книгах

[Хочу все знать!]

Создать типизированный файл catalog.dat, содержащий сведения о книгах
- автор;
- название;
- год издания;
- раздел.
а) найти раздел, в котором больше всего книг;
б) по заданному разделу занести в отдельный файл сведения о всех его книгах;
в) удалить из файла сведения о книгах, год издания которых меньше заданного;
г) обеспечить просмотр файла в табличном виде.



Вот что смогла сделать я:

program faili;
uses crt;
type book=record
   avtor: string;
   nazv: string;
   god: integer;
   razdel: integer;
   end;
const n=20;
var f: file of book;
    otv: char;
    a: book;
    b: array [1..n] of book;
i,min,imin,k,j: integer;
y: book;
begin
clrscr;
assign (f,'catalog.dat');
rewrite (f);
repeat
writeln ('vvedite avtora');
readln (a.avtor);
writeln ('vvedite nazvanie');
readln (a.nazv);
writeln ('vvedite god');
readln (a.god);
writeln ('vvedite razdel');
readln (a.razdel);
write (f,a);
writeln ('Prodolzhenie - lubaia knopka, vixod-esc');
otv:= readkey;
until ord(otv)=27;
close (f);
clrscr;
reset (f);
repeat
read (f,a);
writeln (a.avtor:15, a.nazv:15,a.god:6,a.razdel:10);
until eof (f);
{sortiruem po razdelu}
for i:=1 to n-1 do
begin
min:=b[i].razdel;
imin:=i;
for j:=i+1 to n do
if b[j].razdel<min then
begin
min:=b[j].razdel;
imin:=j;
end;
y:=b[imin];
b[imin]:=b[i];
b[i]:=y;
end;
clrscr;
writeln ('avtor':15,'nazvanie':15,'god':7,'razdel':15);
for i:=1 to n do
with b[i] do
writeln (avtor:15,nazv:15,god:7,razdel:15);
{ishem razdel gde bolshe knig}
k:=0;
for i:=1 to n do
begin
k:=k+1;
if (b[i+1].razdel<>b[i].razdel) or (i=n) then
begin
writeln ('v razdele  ',b[i].razdel,'  kol-vo knig  ',k);
k:=0;
end;
end;

repeat until keypressed;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Alex11223]

И в чем проблема-то? (код не изучал, кстати, используйте лучше тег [CODE] (значек #) вместо php)

[Хочу все знать!]

program faili; 
uses crt; 
type book=record 
   avtor: string; 
   nazv: string; 
   god: integer; 
   razdel: integer; 
   end; 
const n=20; 
var f: file of book; 
    otv: char; 
    a: book; 
    b: array [1..n] of book; 
i,min,imin,k,j: integer; 
y: book; 
begin 
clrscr; 
assign (f,'catalog.dat'); 
rewrite (f); 
repeat 
writeln ('vvedite avtora'); 
readln (a.avtor); 
writeln ('vvedite nazvanie'); 
readln (a.nazv); 
writeln ('vvedite god'); 
readln (a.god); 
writeln ('vvedite razdel'); 
readln (a.razdel); 
write (f,a); 
writeln ('Prodolzhenie - lubaia knopka, vixod-esc'); 
otv:= readkey; 
until ord(otv)=27; 
close (f); 
clrscr; 
reset (f); 
repeat 
read (f,a); 
writeln (a.avtor:15, a.nazv:15,a.god:6,a.razdel:10); 
until eof (f); 
{sortiruem po razdelu} 
for i:=1 to n-1 do 
begin 
min:=b[i].razdel; 
imin:=i; 
for j:=i+1 to n do 
if b[j].razdel<min then 
begin 
min:=b[j].razdel; 
imin:=j; 
end; 
y:=b[imin]; 
b[imin]:=b[i]; 
b[i]:=y; 
end; 
clrscr; 
writeln ('avtor':15,'nazvanie':15,'god':7,'razdel':15); 
for i:=1 to n do 
with b[i] do 
writeln (avtor:15,nazv:15,god:7,razdel:15); 
{ishem razdel gde bolshe knig} 
k:=0; 
for i:=1 to n do 
begin 
k:=k+1; 
if (b[i+1].razdel<>b[i].razdel) or (i=n) then 
begin 
writeln ('v razdele  ',b[i].razdel,'  kol-vo knig  ',k); 
k:=0; 
end; 
end; 

repeat until keypressed; 
end.

Проблема в том, что не умею решать задачи на тему файлы( прошу помочь решить

[Son Of Pain]

Начнем с того, что массив B у тебя не заполняется нигде. Но программа смело пытается что-то с ним делать.