Найти ошибку

[orandzheviyman]

Почему компилятор ругается при вызове процедур?

const MAXbook = 100; {ìàêñèìóì êíèã}
type
  Tbook=record {äàííûå êíèãè}
    surname:string[20]; {ôàìèëèÿ àâòîðà}
    bookname:string[50]; {íàçâàíèå êíèãè}
    year:longint; {ãîä âûïóñêà}
    genre:string[30]; {æàíð}
  end;
  pBook=^Tbook;
  TBookArray=array[1..MAXbook] of pBook;


PROCEDURE{ïóíêò 1} CreateNewFile(var AB:pBook; var N:integer; fname:string);
var
  f:file of Tbook;
  i:integer;
  count: char; {äëÿ ââîäà}
begin
  write('Ââåäèòå èìÿ ôàéëà: ');
  readln(fname);
  assign(f, fname);
  rewrite(f);
  i:=1; count :='y';
  while count ='y' do
  begin
    new (AB);
     with AB^ do begin
    writeln('Ââåäèòå äàííûå ', i, '-îé êíèãè');
    writeln;
    write('Ôàìèëèÿ àâòîðà: '); readLn(surname);
    write('Íàçâàíèå êíèãè: '); readLn(bookname);
    write('Ãîä âûïóñêà:    '); readLn(year);
    write('Æàíð:           '); readLn(genre);
    write(f, AB^);
    Dispose (AB);
    i := i + 1; end;
    if i<= MAXbook then begin
      write('ïðîäîëæèòü ââîä? (y - äà,ëþáàÿ êíîïêà - íåò)'); readln(count); end
    else begin; count:='n'; end;
  end;
  close(f);
  N:=i-1;
end;


PROCEDURE {ïóíêò 2} ShowList(AB:pBook);
var
  i:integer;
  N:longint;
  f:file of pBook;
  fname:string;
begin
  writeln ('Ââåäèòå èìÿ ôàéëà: '); read (fname);
  assign(f, fname);
  reset(f);
  N:=FileSize(f);
  for i:=1 to N do
   begin Read(f); end;
  writeln ('Ñïèñîê êíèã:');
  for i:=1 to N do
   with AB^ do begin
   writeln (surname:15,'     ', bookname:15,'      ', year:4, genre:15); end;
  close (f);
  writeln;
  writeln('Íàæìèòå ENTER äëÿ ïðîäîëæåíèÿ');
  Readln;
end;


PROCEDURE {ïóíêò 3} Poisk(AB:pBook; N:longint; FindYear:longint);
var i:integer;
    f:file of pBook;
    fname:string;
begin
  Writeln;
  Write ('Ââåäèòå èìÿ ôàéëà,â êîòîðîì íàäî èñêàòü: '); readln (fname);
  assign(f, fname);
  reset(f);
  N:=FileSize(f);
  write ('Ââåäèòå ãîä äëÿ ïîèñêà: '); readLn(FindYear);
   writeln;
  for i:=1 to N do
   begin Read(f); end;
  writeln('Êíèãè, âûïóùåííûå â ',FindYear,' ãîäó: ');
   for i:=1 to N do
    with AB^ do begin
     if year=FindYear then
         writeln(surname, ', ',bookname); end;
  writeln;
  WriteLn('Íàæìèòå ENTER äëÿ ïðîäîëæåíèÿ');
  Readln;
end;

var ALLbooks:TBookArray;
  fname:string; {èìÿ ôàéëà}
  N:integer; {ôàêò ÷èñëî êíèã}
  M:integer; {äëÿ ìåíþ}
  FindYear: longint;


begin
  N:=0;
  M:=0;
  while M <> 4 do begin
    writeln(' Ïðîãðàììà ó÷¸òà êíèã ');
    writeln('1 - Cîçäàòü íîâûé ôàéë');
    writeln('2 - Âûâåñòè íà ýêðàí ñîäåðæèìîå ôàéëà');
    writeln('3 - Ïîèñê êíèã ïî ãîäó');
    writeln('4 - Âûõîä');
    write('Ââåäèòå íîìåð òðåáóåìîé îïåðàöèè: ');
    readln(M);

    case M of
      1: CreateNewFile(TBookArray, N, fname); {ïóíêò 1 - ñîçäàíèå íîâîãî ôàéëà äàííûõ}
      2: ShowList(TBookArray); {ïóíêò 3 - âûâåñòè ìàññèâ ñ êíèãàìè íà ýêðàí}
      3: Poisk(TBookArray, N, FindYear);
    end; {end of case}
  end; {end of while}
end.

[type_Oleg]

У вас TBookArray - название типа, а вы используете его в качестве имени фактического параметра.

[orandzheviyman]

Сообщение от type_Oleg

У вас TBookArray - название типа, а вы используете его в качестве имени фактического параметра.

Блин, там ALLbooks, но всё равно не работает

[Mad_Cat]

CreateNewFile(var AB:pBook;

А вы туда то тип пихаете, то

array[1..MAXbook] of pBook;

[orandzheviyman]

Сообщение от Mad_Cat

CreateNewFile(var AB:pBook;

А вы туда то тип пихаете, то

array[1..MAXbook] of pBook;

Разьясните, пожалуйста.

[Stilet]

Разьясните, пожалуйста.

Это значит что ты в вызов процедуры должен пихать не тип, а переменную.
TBookArray это тип массива
А нужно переменную, такую как ALLbooks

[orandzheviyman]

Сообщение от Stilet

Это значит что ты в вызов процедуры должен пихать не тип, а переменную.
TBookArray это тип массива
А нужно переменную, такую как ALLbooks

Простите, но не могли бы вы просто поправить код, я так скорее пойму.

[Stilet]

Ох пичалька...

    case M of
      1: CreateNewFile(ALLbooks, N, fname);
...

[Serge_Bliznykov]

Сообщение от Stilet

Ох пичалька...

    case M of
      1: CreateNewFile(ALLbooks, N, fname);
...

и что особенно печально и обидно, это то, что изначально у меня в коде (тут) так и было:

...
 case M of
      1: CreateNewFile(ALLbooks, N, fname); {пункт 1 - создание нового файла данных}
      2: OpenReadFile(ALLbooks, N, fname); {пункт 2 - прочитать файл в память}

[Stilet]

Serge_Bliznykov

Нэпэрэжэвай )