Сформировать массив сведений о наличии учебников в библиотеке, следующей структуры: автор, название, шифр книги, количество экземпляров, год издания.
Получить список новых изданий.
Программа
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.
Подскажите.