Программа "Книжная полка"(подредактировать надо.)

program igaZ10V1; {Ïðîãðàììà "Êíèæíûé ìàãàçèí"}
const
      AFileName = 'J:\Biblioteka.txt'; {Èìÿ ôàéëà}
      MaxRecordCount = 100; {Ìàêñèìàëüíîå ÷èñëî çàïèñåé â ñïðàâî÷íèêå}
type
     
      {Îïèñàíèå çàïèñè èç áèáëèîòåêè}
      liter = record
        Title: String[50];       {íàçâàíèå êíèãè}
        Author: String[50]; {Ôèî àâòîðà}
        God: integer;       {Ãîä èçäàíèÿ}
        KolichE: integer;   {Êëè÷åñòâî ýêçåìïëÿðîâ}
        Cena: integer;      {Öåíà êíèãè}
        Pol: Boolean;
end;
{Îáúÿâëåíèå òèïà-ìàññèâà çàïèñåé áèáëèîòåêè}
      bookspolka = array[1..MaxRecordCount] of liter;
    
    {Ïðîöåäóðà âûïîëíÿåò ñîõðàíåíèå ñïðàâî÷íèêà â ôàéë}
    procedure SaveToFile(const Abook: bookspolka; const ACount: Integer);
    var
      L: file of liter; {Îáúÿâëÿåì ôàéëîâóþ ïåðåìåíóþ}
      I: Integer;
    begin
      Assign(L, AFileName);   {Èíèöèàëèçèðóåì ôàéëîâóþ ïåðåìåííóþ}
      Reset(L);            {Îòêðûâàåì ôàéë äëÿ çàïèñè}
      for I := 1 to ACount do {Öèêë ïåðåáîðà çàïèñåé}
        Write(L, Abook[I]);  {Ñîõðàíÿåì çàïèñü â ôàéë}
      Close(L);               {Çàêðûâàåì ôàéë}
      Writeln('Ñïðàâî÷íèê óñïåøíî ñîõðàíåí â ôàéë ', AFileName);
    end;
    {Ïðîöåäóðà âûâîäèò íà ýêðàí çàïèñü ñ óêàçàííûì íîìåðîì}
    procedure ShowRecord(const Abook: bookspolka; Num: Integer);
    var
      L: file of bookspolka; {Îáúÿâëÿåì ôàéëîâóþ ïåðåìåíóþ}
      Aliter: liter;
      C: Char;
    begin
      Aliter := Abook[Num];
      if Aliter.Pol then {if Aliter.Pol = True}
        C := 'm'
      else
        C := 'f';
      Writeln('¹', Num, ': Author=', Aliter.Author, ', God=',
        Aliter.God, ', Pol=', C, ', KolichE=', Aliter.KolichE, ',cena=', Aliter.Cena);
    end;
    {Ïðîöåäóðà âûâîäèò íà ýêðàí ñïèñîê âñåõ çàïèñåé}
    procedure ShowAllRecords(const Abook: bookspolka; const ACount: Integer);
var
     L: file of liter; {Îáúÿâëÿåì ôàéëîâóþ ïåðåìåíóþ}
     I: Integer;
    begin
    Assign(L, AFileName);   {Èíèöèàëèçèðóåì ôàéëîâóþ ïåðåìåííóþ}
      Reset(L);            {Îòêðûâàåì ôàéë äëÿ çàïèñè}
      Writeln('Êàòîëîã âñåõ êíèã:');
      for I := 1 to ACount do
    ShowRecord(Abook, I);
    end;
    {Ïðîöåäóðà äîáàâëåíèÿ íîâîé çàïèñè â ñïðàâî÷íèê}
    procedure AddNewRecord(var Abook: bookspolka; var ACount: Integer);
    var
     L: file of  bookspolka; {Îáúÿâëÿåì ôàéëîâóþ ïåðåìåíóþ}
     Aliter: liter;
  C: Char;
    begin
    Assign(L, AFileName);   {Èíèöèàëèçèðóåì ôàéëîâóþ ïåðåìåííóþ}
      Reset(L);            {Îòêðûâàåì ôàéë äëÿ çàïèñè}
      Write('Ââåäèòå íàçâàíèå êíèãè: ');
      Readln(Aliter.Title);
      {write(l,Aliter.Title);}
      Write('Ââåäèòå ôèî àâòîðà: ');
      Readln(Aliter.author);
      Write('Ââåäèòå ïîë àâòîðà ("m" / "f"): ');
      Readln(C);
      if C = 'm' then
        Aliter.Pol := True   {Ìóæ÷èíà}
      else { if C = 'f' }
        Aliter.Pol := False; {Æåíùèíà}
      Write('Ââåäèòå ãîä èçäàíèÿ: ');
      Readln(Aliter.God);
      Write('Ââåäèòå êîëè÷åñòâî ýêçåìïëÿðîâ: ');
      Readln(Aliter.KolichE);
      Write('Ââåäèòå öåíó êíèãè: ');
      Readln(Aliter.Cena);
      Inc(ACount); {Óâåëè÷èâàåì ñ÷åò÷èê çàïèñåé íà 1}
      Abook[ACount] := Aliter; 
      Write('Äîáàâëåíà çàïèñü: ');
      ShowRecord(Abook, ACount); {Ïå÷àòàåì çàïèñü íà ýêðàí}
      close(L);
    end;
    {Ïðîöåäóðà îòûñêèâàåò çàïèñü ïî çàäàíîìó íàçâàíèþ êíèãè è ïå÷àòàåò íà ýêðàíå}
    procedure FindRecord(const Abook: bookspolka; const ACount: Integer);
    var
      L: file of bookspolka; {Îáúÿâëÿåì ôàéëîâóþ ïåðåìåíóþ}
      I: Integer;
      IsFind: Boolean;
      Title: string[50];
    begin
    Assign(L, AFileName);   {Èíèöèàëèçèðóåì ôàéëîâóþ ïåðåìåííóþ}
      Reset(L);            {Îòêðûâàåì ôàéë äëÿ çàïèñè}
      Write('Ââåäèòå íàçâàíèå êíèãè: ');
      Readln(Title);
  IsFind := False; {Ñáðàñûâàåì ôëàã ïåðåä ïîèñêîì}
      for I := 1 to ACount do
        if Abook[I].Title = Title then
        begin
          IsFind := True; {Óñòàíàâëèâàåì ôëàã "Óñïåøíûé ïîèñê"}
          Write('Çàïèñü íàéäåíà: ');
      ShowRecord(Abook, I);
          Break; {Âûõîä èç öèêëà}
        end;
      if not IsFind then {Åñëè çàïèñü íå íàéäåíà}
        Writeln('Çàïèñü íå íàéäåíà!');
    end;
    var
      MenuNum: Byte;
      tbookspolka: bookspolka; {Ïåðåìåííàÿ-ñïðàâî÷íèê}
  PhoneCount: Integer; {Òåêóùåå êîëè÷åñòâî çàïèñåé â ñïðàâî÷íèêå}
    L: file of bookspolka; {Îáúÿâëÿåì ôàéëîâóþ ïåðåìåíóþ}
    
begin
    {Assign(L, AFileName);   {Èíèöèàëèçèðóåì ôàéëîâóþ ïåðåìåííóþ}
     { Rewrite(L);}             {Îòêðûâàåì ôàéë äëÿ çàïèñè}
      PhoneCount := 0; {Ïðè çàïóñêå ïðîãðàììû ñïðàâî÷íèê åùå ïóñò}
      Writeln('Êíèæíàÿ ïîëêà. Àâòîð Ùåðáàêîâ È.Ñ.');
 repeat
        Writeln(' ');
        Writeln('Ââåäèòå öèôðó äëÿ âûïîëíåíèÿ äåéñòâèÿ:');
        Writeln('1 - Íîâàÿ çàïèñü');
        Writeln('2 - Ñïèñîê âñåõ çàïèñåé');
        Writeln('3 - Ïîèñê çàïèñè ïî íàçâàíèþ êíèãè');
        Writeln('4 - Ñîõðàíåíèå ñïðàâî÷íèêà â ôàéë');
        Writeln('5 - Âûõîä èç ïðîãðàììû');
        Write('>>> ');
     Readln(MenuNum);
        case MenuNum of
        {1: LoadFromFile(bookspolka, PhoneCount);}
          1: AddNewRecord(tbookspolka, PhoneCount);
          2: ShowAllRecords(tbookspolka, PhoneCount);
          3: FindRecord(tbookspolka, PhoneCount);
          4: SaveToFile(tbookspolka, PhoneCount);
 end;
 until MenuNum = 5;
end.