Задача на Record Опции

[Art87]

Задача такая
Сформировать массив сведений о наличии учебников в библиотеке, следующей структуры: автор, название, шифр книги, количество экземпляров, год издания.
Получить список новых изданий.

Программа

program z2;
var o:char;
i,n:integer;
year: string;
a: array [1..50,1..5] of string;
begin
 year:='2005';
 writeln ('Please input quantity of elements:');
 readln(n);
 for i:=1 to n do begin
  writeln('Please input new element (Autor, Name, Code, Quantity ex. and Year');
  readln(a[i,1]);
  readln(a[i,2]);
  readln(a[i,3]);
  readln(a[i,4]);
  readln(a[i,5]);
 end;
 for i:=1 to n do begin
  if a[i,5]=Year then begin

   writeln(i+': '+a[i,1]+' '+a[i,2]+' '+a[i,3]+' '+a[i,4]+' ' + a[i,5]);
   { !!! Вот здесь вывод строки, а выдается ошибка !!! }

  end;
 end;
end.

Подскажите.

Сообщение отредактировано: volvo - 19.10.2005 13:51