Подправить задачу на Паскал

[sinid]

В библиотеке имеются книги, газеты, журналы. Для каждого печатного издания указать название, год выпуска.(для книги), дату выпуска (для газет и журналов), автора (для книги), редактора (для газеты), состав редколлегии (для журнала), объем. Вывести информацию об изданиях, вышедших в заданном году.
Подправте пожалусто:

type
   books = record
      name,autor:string;
      year,V:integer;
   end;

   magazines = record
      date, name, redact:string;
      V:integer;
   end;

   newspapers = record
      date, name, redact:string;
      V:integer;
   end;

var
   a:array[1..20]of books;
   b:array[1..20]of magazines;
   c:array[1..20]of newspapers;
   n,m,l,i,year:integer;

begin
   writeln('Books');
   readln(n);
   for i:=1 to n do
   begin
      write('Book''s name: '); readln(a[i].name);
      writeln('Year: '); readln(a[i].year);
      writeln('Autor: '); readln(a[i].autor);
      writeln('V: '); readln(a[i].V);
   end;
   writeln('Magazines');
   readln(m);
   for i:=1 to m do
   begin
      writeln('Magazine''s name: '); readln(b[i].name);
      writeln('Date: '); readln(b[i].date);
      writeln('Redact: '); readln(b[i].redact);
      writeln('V: '); readln(b[i].V);
   end;
   writeln('Newspapers');
   readln(l);
   for i:=1 to l do
   begin
      writeln('Newspaper''s name: '); readln(c[i].name);
      writeln('Date: '); readln(c[i].date);
      writeln('Redact: '); readln(c[i].redact);
      writeln('V: '); readln(c[i].V);
   end;
   write('Needed year:');
   readln(year);

   for i:=1 to n do
      if a[i].year=year then
         writeln(a[i].name, ' ', a[i].year, ' ', a[i].autor, ' ', a[i].V);

[Stilet]

Не ну правильно вроде начал...
Че поправлять то?

[sinid]

Ну чтоб вона правильно работала

[puporev]

Вообще-то это задача на записи с вариантами.

[Stilet]

Ну чтоб вона правильно работала

Да тут все вродь правильно - дописывай смело конец и запускай. )

[Siroga35]

НУ я дописал конец но прога не работает, скажите почему?type
type
books = record
name,autor:string;
year,V:integer;
end;

magazines = record
date, name, redact:string;
V:integer;
end;

newspapers = record
date, name, redact:string;
V:integer;
end;

var
a:array[1..20]of books;
b:array[1..20]of magazines;
c:array[1..20]of newspapers;
n,m,l,i,year:integer;

begin
writeln('Books');
readln(n);
for i:=1 to n do
begin
write('Book''s name: '); readln(a[i].name);
writeln('Year: '); readln(a[i].year);
writeln('Autor: '); readln(a[i].autor);
writeln('V: '); readln(a[i].V);
end;
writeln('Magazines');
readln(m);
for i:=1 to m do
begin
writeln('Magazine''s name: '); readln(b[i].name);
writeln('Date: '); readln(b[i].date);
writeln('Redact: '); readln(b[i].redact);
writeln('V: '); readln(b[i].V);
end;
writeln('Newspapers');
readln(l);
for i:=1 to l do
begin
writeln('Newspaper''s name: '); readln(c[i].name);
writeln('Date: '); readln(c[i].date);
writeln('Redact: '); readln(c[i].redact);
writeln('V: '); readln(c[i].V);
end;
write('Needed year:');
readln(year);

for i:=1 to n do
if a[i].year=year then
writeln(a[i].name, ' ', a[i].year, ' ', a[i].autor, ' ', a[i].V);
end.
Вот.

[bura]

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

[Siroga35]

Ну виложил

[Siroga35]

Здесь нужно добавить после clrscr строку яка виводит книги за год что бил введений з клави.А от как ету строку прописать я не знаю может хто другой поможет бо сам хочу знать.

[Siroga35]

Ало може хтось выдповысть?