В файл записать информацию о книгах

type z=record
     avtor:string[20];
     nazv:string[30];
     year:string[4];
     price:real;
     end;
var  F:file of z;
     book:array [1..3] of z;
     i:integer;
begin
writeln('Vvedite svedeniya o knigah');
assign(F,'c:\books.txt');
rewrite(f);
for i:=1 to 3 do begin
write('Avtor:');
readln(book[i].avtor);
write('Nazvanie:');
readln(book[i].nazv);
write('God izdaniya:');
readln(book[i].year);
write('Cena:');
readln(book[i].price);
write(F,book[i]);
writeln('----------------');
end;
Close(F);
end.
 
 
Программа для поиска
 
type z=record
     avtor:string[20];
     nazv:string[30];
     year:string[4];
     price:real;
     end;
var  F:file of z;
     book:array [1..3] of z;
     i:integer;
     year:string[4];
begin
assign(F,'c:\books.txt');
reset(f);
writeln('');
write('Vibrat knigi izdannye s:');
readln(year);
while not Eof(F) do begin
read(F,book[i]);
if book[i].year>=year then
   begin
   writeln(book[i].Nazv,' ',book[i].year);
   end;
end;
Close(F);
readln;
end.

uses crt;
type book=record
          avt:string[20];
          naz:string[20];
          god:integer;
          cen:integer;
          end;
var f:file of book;
    k,i,j,n:integer;
    z,x:book;
begin
clrscr;
assign(f,'book');
rewrite(f);
write('Сколько книг записать в файл k=');
readln(k);
for i:=1 to k do
 begin
  writeln('Книга ',i);
  with z do
   begin
    write('Автор: ');readln(avt);
    write('Название: ');readln(naz);
    write('Год издания: ');readln(god);
    write('Цена: ');readln(cen);
    write(f,z)
   end
 end;
clrscr;
writeln('Полный список книг:');
writeln('---------------------------------------------------');
writeln('|     Автор     |      Название      | Год | Цена |');
writeln('---------------------------------------------------');
reset(f);
while not eof(f) do
 begin
  read(f,z);
  with z do
   begin
    gotoXY(1,whereY);write('| ',avt);
    gotoXY(17,whereY);write('| ',naz);
    gotoXY(38,whereY);write('|',god:5);
    gotoXY(44,whereY);write('|',cen:6);
    gotoXY(51,whereY);writeln('|');
   end;
 end;
writeln('---------------------------------------------------');
write('Нажмите Enter для продолжения');
readln;
clrscr;
write('С какого года показать книги n=');
readln(n);
seek(f,0);
k:=0;
writeln('Книги, изданные с ',n,' года:');
writeln('---------------------------------------------------');
writeln('|     Автор     |      Название      | Год | Цена |');
writeln('---------------------------------------------------');
while not eof(f) do
 begin
  read(f,z);
  if z.god>=n then
   begin
    k:=1;
    with z do
     begin
      gotoXY(1,whereY);write('| ',avt);
      gotoXY(17,whereY);write('| ',naz);
      gotoXY(38,whereY);write('|',god:5);
      gotoXY(44,whereY);write('|',cen:6);
      gotoXY(51,whereY);writeln('|');
     end;
   end;
 end;
writeln('---------------------------------------------------');
if k=0 then write('Книг, изданных с ',n,' года нет');
close(f);
write('Нажмите Enter для выхода');
readln
end.

Program Biblioteka;
uses crt;
Type TBiblos = Record
  Autor: String[50];
  NameBook: String[50];
  DateIn: Double;
  Cena: Double;
End;
Var f:text;
    s,sd:string;
    i,c,k: Integer;
    A:array[1..1000] of TBiblos;
Begin
Randomize;
i := (-1);
k := 0;
Assign(f,'C:\bib.txt');
Append(f);
For i := 1 To 5 do Begin
Write('Avtor = ');
Readln(A[i].Autor);
Write('NameBook = ');
Readln(A[i].NameBook);
Write('DateIn = ');
Readln(A[i].DateIn);
Write('Cena = ');
Readln(A[i].Cena);
Writeln(f,A[i].Autor + ' ' + A[i].NameBook + ' ' + FloatToStr(A[i].DateIn) + ' ' + FloatToStr(A[i].Cena) + ' ');
End;
Close(f);
Readln;
End.

Program Biblioteka;
uses crt;
Type TBiblos = Record
  Autor: String[50];
  NameBook: String[50];
  DateIn: Double;
  Cena: Double;
End;
Var f:text;
    s,sd:string;
    i,c,k: Integer;
    A:array[1..1000] of TBiblos;
Begin
Randomize;
i := (-1);
k := 0;
c := (-1);
Assign(f,'C:\bib.txt');
Reset(f);
While not eoln(f) do Begin
Readln(f,s);
inc(k);
For i := 1 To Length(s) do Begin
If s[i] <> ' ' Then sd := sd + s[i] Else Begin
inc(c);
Case c of
0: A[k].Autor := sd;
1: A[k].NameBook := sd;
2: A[k].DateIn := StrToFloat(sd);
3: A[k].Cena := StrToFloat(sd);
End;
sd := '';
End;
End;
c := (-1);
End;
For i := 1 to k do If A[i].DateIn > 2000 Then Writeln(A[i].Autor + ' ' + A[i].NameBook + ' ' + FloatToStr(A[i].DateIn) + ' ' + FloatToStr(A[i].Cena) + ' ');
Readln;
End.