Помогите найти ошибки

[orandzheviyman]

CONST MAXbook=100; {Максимально возможное число книг}
TYPE Tbook=record {данные книги}
     surname:string [20]; {фамилия автора}
     bookname: string [50]; {название книги}
     year:longint; {год выпуска}
     genre:string [30]; {жанр}
       end;
     Tallbook=array [1..MAXbook] of Tbook;
VAR MASbook:Tallbook; {массив с данными о книгах}
    knigi:Tallbook;
    f:Text;
    fname:string [30];
    N:integer; {фактическое число книг}
    M:integer; {для работы с меню}
    i:integer; {счётчик}
    count:char; {y - продолжить ввод}
    tmp:Tbook; {ввод об одной книге}
    Q:longint;
    
PROCEDURE Poisk (f:Text; var Q:longint);
 Begin
  assign (f, fname);
  reset (f);
   while not eof (f) do
     begin
      with knigi [i] do begin
      readln (f, surname, bookname, year, genre);
      i:=i+1;
        if year=Q then
         writeln (surname:10,bookname:10);
         end;
      end;
 end;

BEGIN
 writeln (' "программа учёта книг" ');
 writeln ('1 - создать файл');
 writeln ('2 - открыть файл');
 writeln ('3 - выход');
  m:=1;
 while m<>3 do {пока не выход}
 begin
   write ('введите номер пункта меню '); readln (m);
  case m of
  1:{пункт меню 1}
  begin
   write ('имя файла введите: '); readln (fname);
   assign (f, fname);
   rewrite (f);
   i:=1; count:='y';
   while count='y' do
    with tmp do
     begin
      writeln ('введите данные ', i, '-ой книги');
      writeln;
      write ('фамилия: '); readln (surname);
      write ('название: '); readln (bookname);
      write ('год:    '); readln (year);
      write ('жанр:           '); readln (genre);
      writeln (f, surname:20,bookname:50,year:4,genre:30);
       i:=i+1;
       write (продолжить ввод? (y - да, любая другая - нет)'); readln (count);
     end;
   close (f);
  end;
  2: {пункт меню 2}
  begin
   write ('введите имя файла: ');
   readln (fname);
   assign (f, fname);
   reset (f);
   i:=1;
    while not eof (f) do
     begin
      with knigi[i] do
      readln (f, surname, bookname, year, genre);
      i:=i+1;
     end;
    close (f);
   n:=i-1; {фактическое число книг}
  for i:=1 to n do
   with knigi[i] do
    writeln (surname:10,bookname:10,year:4,genre:10);
   end;
  end;
 end;
  write ('введите имя файла: '); readln (fname);
 assign (f, fname);
 reset (f);
 write ('VVEDI');
 readln (Q);
Poisk (f, Q);
END.

1 - когда записана одна книга, то выводит только фамилию, при открытии файла(2 пункт меню)
2 - когда две и более книг, то выдаёт ошибку "Ошибка ввода/вывода 106: неверный числовой формат при вводе"
3 - когда вызываю процедуру, та же ошибка, что и во втором пункте

[ZX Spectrum-128]

      readln (f, surname, bookname, year, genre);

В коде не разбирался. Но бросилось в глаза сразу. Нельзя из типизированного файла так читать. Только read, а не readln.

[orandzheviyman]

Сообщение от ZX Spectrum-128

      readln (f, surname, bookname, year, genre);

В коде не разбирался. Но бросилось в глаза сразу. Нельзя из типизированного файла так читать. Только read, а не readln.

Исправил, всё то же самое.

[Mad_Cat]

Скажите мне только одно - зачем вы используете текстовый файл при работе с записями?

[ZX Spectrum-128]

И в процедуре тоже?

Скажите мне только одно - зачем вы используете текстовый файл при работе с записями?

А вот такое мне даже и в голову не пришло.

[Unique_Maks]

думаю что автор прост надыбал где-то код, а разбираться в нем сюда пришел

[ZX Spectrum-128]

Похоже, что так.
Более-менее похожее нашел и надо подогнать под свою задачу.
Автор темы, вы не могли бы указать точно задание, которое вы от преподавателя получили?

[orandzheviyman]

Сообщение от ZX Spectrum-128

Похоже, что так.
Более-менее похожее нашел и надо подогнать под свою задачу.
Автор темы, вы не могли бы указать точно задание, которое вы от преподавателя получили?

Нет, код сам писал. В методичке в примере решения подобной задачи использовался типизированный файл. Вот задание: 1) Работа выполняется в среде Turbo Pascal 7.0. Описание лабораторного стенда приведено в методических указаниях к лабораторной работе № 1.
2) Изучите пример программы, приведенный в разделе 1.3.
3) Получите у преподавателя номер варианта индивидуального задания на лабораторную работу. Варианты заданий приведены в таблице 1.1.
4) Создайте программу, осуществляющую формирование и обработку файла (текстового или типизированного file of record…), предназначенного для хранения информации, структура которой задана в таблице 1.1 в соответствии с номером варианта. Программа должна удовлетворять таким требованиям:
– программа должна иметь простое меню
а) формирование файла;
б) просмотр файла;
в) выход из программы;
– при выборе пункта меню «формирование файла» программа должна запрашивать ввод имени файла с клавиатуры. Также должен быть преду-смотрен ввод исходных данных с клавиатуры. Программа должна запраши-вать у пользователя подтверждение для продолжения или окончания ввода данных;
– при выборе пункта меню «просмотр файла» программа должна за-прашивать ввод имени файла с клавиатуры. В программе должен быть реа-лизован вывод содержимого файла на экран в виде таблицы. Также, должна вызываться дополнительная подпрограмма обработки файла. Подпрограм-ма должна решать задачу, указанную в последнем столбце таблицы 1.1;
– при выборе пункта меню «выход из программы» программа должна завершать работу.
Представляемый при защите отчета файл должен содержать 10 записей.
Назначение программы: список книг
Поля: фамилия автора, название книги, год выпуска, жанр
Назначение подпрограммы: вывод на экран на-званий и авторов всех книг данного года из-дания

а, нет. В примере текстовый. Я так понимаю надо типизированный?

[ZX Spectrum-128]

Написано: текстового или типизированного. Работайте с типизированным, намного проще.

[ViktorR]

Поскольку в файле должна храниться информация о книге, которая задается в структурированном виде, то следует использовать типизированный файл. В этом случае данные будут читаться и/или писаться блоками со структурой, которая определена для хранения информации о книге.


Как-то так, ...