Вывести авторов, которые работали в жанрах прозы, поэзии и живописи

program lab4_2;
uses crt;
type zap=record
     author, title,genre:string;
     case tag: integer of
      1:(volume:integer);
      2:(size:string);
      3:(direction:string);
      end;
var art_work:array [1..10] of zap;
    ch:char;
    i,j:integer;
 
Procedure input;
begin
repeat
 i:=i+1;
with art_work[i] do
 begin
  write('enter type of art_work: 1-prose, 2-poetry, 3-painting');
  readln(tag);
   case tag of
    1:begin
       write('author of prose'); readln(author);
       write('title of prose'); readln(title);
       write('genre of prose'); readln(genre);
       write('volume'); readln(volume);
      end;
    2:begin
       write('author of poetry'); readln(author);
       write('title of poetry'); readln(title);
       write('genre of poetry'); readln(genre);
       write('size'); readln(size);
      end;
    3:begin
       write('author of painting'); readln(author);
       write('title of painting'); readln(title);
       write('genre of painting'); readln(genre);
       write('direction'); readln(direction);
      end;
   end;
end;
 writeln('continue? y/n'); ch:=readkey;
until ch='n';
end;
 
procedure output;
begin
 for j:=1 to i do
  with art_work[j] do
   case tag of
   1: begin
    writeln('prose: ',author,' ',title,' ',genre,' ',volume); readln;
    end;
   2: begin
    writeln('poetry: ',author,' ',title,' ',genre,' ',size); readln;
    end;
   3: begin
    writeln('painting: ',author,' ',title,' ',genre,' ',direction); readln;
    end;
   end;
end;
 
Procedure task1;
begin
 writeln('author of prose, poetry, painting');
 readln;
 for j:=1 to i do
 begin
  write(art_work[j].author);
  readln;
 end;
end;
 
Procedure task2;
var kol:integer;
    tmp:string;
begin
clrscr;
 writeln('enter author of painting'); readln(tmp);
  kol:=0;
 for j:=1 to i do
 begin
  if art_work[j].genre='naturmort' then
     if art_work[j].author=tmp  then
         kol:=kol+1;
 end;
 writeln('number of works',kol);
 readln;
end;
 
Procedure task3;
begin
clrscr;
 writeln('author of not roman');
 clrscr;
 readln;
 for j:=1 to i do
 begin
 if art_work[j].genre<>'roman' then
   begin
    write(art_work[j].author);
    readln;
   end;
 end;
end;
 
Procedure endprog;
begin
clrscr;
 gotoxy(15,10); writeln('Do you want to exit from program? y/n');
 ch:=readkey;
 if ch='y' then halt(0);
end;
 
Procedure menu;
begin
 repeat
 clrscr;
 gotoxy(21,3); writeln('MENU');
 gotoxy(15,5); writeln('1. Input database');
 gotoxy(15,7); writeln('2. Show database');
 gotoxy(15,9); writeln('3. Author');
 gotoxy(15,11); writeln('4. Number of work');
 gotoxy(15,13); writeln('5. Author of not roman');
 gotoxy(15,15); writeln('6. Exit');
 ch:=readkey;
 case ch of
   '1':input;
   '2':output;
   '3':task1;
   '4':task2;
   '5':task3;
   '6':endprog;
 end;
 until ch='6';
end;
 
begin
clrscr;
 i:=0;
 menu;
end.

var
data:string;
begin
assign(f,file1);
rewrite(f);
writeln(f,data);
close(f);