[Pascal] Создать массив структур, содержащий сведения о книгах

[Alexey1002]

Необходимо создать массив структур A(n), где n<=30, содержащий сведения о книгах: автор, название книги и год издания. Используя функцию, выбрать из этого массива записи о книгах, изданных до 1995 года, и упорядочить этот список по году издания. В главной функции полученный массив вывести на экран.
Помогите, заранее большое спасибо!

Вот код, что у меня получилось написать, но это самое начало:

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

const
nmax=20;
type
comp=record
avtor:string[10];
nazvanie:string[5];
god:Integer;
end;
var
spis:array[1..nmax] of comp;
n,i:Integer;
begin
write('Cislo knig:');
Readln(n);
Writeln('Vvod dannix o knigax:');
for i:=1 to n do
begin
Writeln(i:2, ') avtor, nazvanie, god izdania(cherez ENTER):');
Readln(spis[i].avtor);
Readln(spis[i].nazvanie);
Readln(spis[i].god);
end;
Writeln;
Writeln('------------------------------');
Writeln('| N | Avtor | Nazvanie | God |');
Writeln('------------------------------');
for i:=1 to n do
Writeln(i:3, spis[i].avtor:9, spis[i].nazvanie:5, spis[i].god:9);
Writeln;


{ TODO -oUser -cConsole Main : Insert code here }
end.

[СтудПом]

Во-первых, используйте для кода BBCode "code".

Во-вторых, оно компилируется?

[Alexey1002]

Сообщение от СтудПом

Во-первых, используйте для кода BBCode "code".

Во-вторых, оно компилируется?

Да, вот консоль

[СтудПом]

Отлично!

Теперь, смотрите задание - сказано "Используя функцию".

Это значит, что вся работа в главной части программы д.б. реализована через вызовы функций (процедур).

Следовательно, задача номер раз - сделать тип-массив. Аналогично тому, как сделан тип записей, сделайте тип описывающий массив этих записей, чтоб при объявлении переменной

spis:array[1..nmax] of comp;

было что-то вроде

spis:ArrayType;

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

Задача номер два - написать две процедуры ввода и вывода массива. Ничего сложного, просто сделайте пустые процедуры с именами InputArray и PrintArray, их содержание уже есть у Вас, просто перенесите из главного модуля.

[Alexey1002]

Сообщение от СтудПом

Отлично!

Теперь, смотрите задание - сказано "Используя функцию".

Это значит, что вся работа в главной части программы д.б. реализована через вызовы функций (процедур).

Следовательно, задача номер раз - сделать тип-массив. Аналогично тому, как сделан тип записей, сделайте тип описывающий массив этих записей, чтоб при объявлении переменной

spis:array[1..nmax] of comp;

было что-то вроде

spis:ArrayType;

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

Задача номер два - написать две процедуры ввода и вывода массива. Ничего сложного, просто сделайте пустые процедуры с именами InputArray и PrintArray, их содержание уже есть у Вас, просто перенесите из главного модуля.

Не совсем понимаю. Я должен добавить "spis:ArrayType" туда, где идёт ввод переменных? Простите за мою так сказать тугость, начал изучать программирование вот только в начале семестра.

[СтудПом]

spis - это переменная, у переменной есть тип, который определяет форму и операции с переменной, но этот тип не именован, т.е. он реализован только для единственной переменной. Традиционные реализации Паскаля не разрешают передавать такие переменные через параметры функций.
Надо создать такой тип, который будет описывать массив из записей

TYPE
ArrayType=array[1..nmax] of comp;

и далее, везде, где надо создать/объявить переменную содержащую массив, вы будете вместо описания

Имя_переменной:array[1..nmax] of comp;

указывать просто имя типа

Имя_переменной:ArrayType;

[Alexey1002]

Если правильно Вас понял, то вот так, но выдаёт ошибку (скриншот прилагаю)

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  const
    nmax=20;
    type
       ArrayType=array[1..nmax] of comp;
      comp=record
      avtor:string[10];
      nazvanie:string[5];
      god:Integer;

      end;
  var
n,i:Integer;
begin
      spis:ArrayType;
    write('Cislo knig:');
    Readln(n);
    Writeln('Vvod dannix o knigax:');

for i:=1 to n do
begin
  Writeln(i:2, ') avtor, nazvanie, god izdania(cherez ENTER):');

  Readln(spis[i].avtor);
  Readln(spis[i].nazvanie);
  Readln(spis[i].god);
  end;
  Writeln;
  Writeln('------------------------------');
  Writeln('| N | Avtor | Nazvanie | God |');
  Writeln('------------------------------');
   for i:=1 to n do
   Writeln(i:3, spis[i].avtor:9,  spis[i].nazvanie:5, spis[i].god:9);
   Writeln;
   Readln;


  { TODO -oUser -cConsole Main : Insert code here }
end.

[СтудПом]

Вы перенесли объявление переменной под begin

var
spis:array[1..nmax] of comp;
n,i:Integer;
begin
write('Cislo knig:');

  var
n,i:Integer;
begin <--!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
      spis:ArrayType;
    write('Cislo knig:');

Ещё надо переставить описания типов ArrayType идёт до comp. Из-за этого будет ошибка компиляции на строке Readln(spis[i].avtor);

Мля, прогресс компиляторов:

TP 7 -   3376 байт под DOS
FPC  - 267696 байт под Debian

будущее наступило, БЛИН