Выдавать информацию о публикациях, удовлетворяющих тому или иному критерию

uses crt;
const n=3; tg=2012;
      zag ='|     Журнал     |   Название  статьи   |   Автор   | Год |';
      line='-----------------------------------------------------------';
 
type magazin=record
     jor: string[15];
     naz: string[20];
     avt: string[10];
     year:integer;
     end;
     mar=array [1..n] of magazin;
 
var m: mar; r: byte;
 
procedure Vvod(var z:mar);
var i: byte;
begin
clrscr;
writeln('Внесите данные о журналах и статьях');
for i:=1 to n do
with z[i] do
     begin
     write('Название журнала: '); readln(jor);
     write('Название статьи: '); readln(naz);
     write('Автор: '); readln(avt);
     repeat
     write('Год выпуска: '); readln(year);
     until (year>=1900) and (year<=tg);
     end;
end;
 
procedure Vyvod(z:mar);
var i: byte;
begin
clrscr;
writeln(zag);
writeln(line);
for i:=1 to n do
with z[i] do
     begin
     writeln('|',jor:15,'|':2,naz:20,'|':3,avt:10,'|':2,year:4,'|':2);
     writeln(line);
     end;
end;
 
procedure FindAutor (z:mar);
var i,k: byte;
    s: string;
begin
clrscr;
k:=0;
write('Укажите фамилию, инициалы автора: '); readln(s);
for i:=1 to n do
with z[i] do
     begin
     if avt=s then
        begin
        inc(k);
        if k=1 then
           begin
           writeln(zag);
           writeln(line);
           end;
        writeln('|',jor:15,'|':2,naz:20,'|':3,avt:10,'|':2,year:4,'|':2);
        writeln(line);
        end;
     end;
if k=0 then writeln('Нет статьей данного автора') else
   begin
   writeln(line);
   writeln('Всего статей ',k);
   end;
end;
 
procedure FindJornal (z:mar);
var i,k: byte;
    s: string;
begin
clrscr;
k:=0;
write('Укажите журнал: '); readln(s);
for i:=1 to n do
with z[i] do
     begin
     if jor=s then
        begin
        inc(k);
        if k=1 then
           begin
           writeln(zag);
           writeln(line);
           end;
        writeln('|',jor:15,'|':2,naz:20,'|':3,avt:10,'|':2,year:4,'|':2);
        writeln(line);
        end;
     end;
if k=0 then writeln('Нет статьей данного журнала') else
   begin
   writeln(line);
   writeln('Всего статей ',k);
   end;
end;
 
procedure FindYear (z:mar);
var i,k: byte;
    yn,yk: integer;
begin
k:=0;
clrscr;
repeat
write('Укажите через пробел временной диапазон поиска (например, 2002 2008): '); read(yn,yk);
until (yn>1900) and (yn<=tg) and (yk>1900) and (yk<=tg);
for i:=1 to n do
with z[i] do
     begin
     if (year>=yn) and (year<=yk) then
        begin
        inc(k);
        if k=1 then
           begin
           writeln(zag);
           writeln(line);
           end;
        writeln('|',jor:15,'|':2,naz:20,'|':3,avt:10,'|':2,year:4,'|':2);
        writeln(line);
        end;
     end;
if k=0 then writeln('Нет статьей данного диапазона времени') else
   begin
   writeln(line);
   writeln('Всего статей ',k);
   end;
end;
 
begin
r:=1;
repeat
writeln('0-завершение работы');
writeln('1-ввод данных в БД "Статьи"');
writeln('2-вывод данных БД "Статьи"');
writeln('3-поиск по имени автора');
writeln('4-поиск по названию журнала');
writeln('5-поиск в заданном диапазоне времени');
readln(r);
case r of
1: Vvod(m);
2: Vyvod(m);
3: FindAutor (m);
4: FindJornal (m);
5: FindYear (m);
end;
until r=0;
readln;
end.