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

Program lab1;
uses crt;
type    famnaz=record
    fam : string;
    naz : string;
    end;
        nazgod=record
    naz : string;
    god : string;
    end;
        allinf=record
    fam : string;
    naz : string;
    god : string;
    end;
 
var
  mas1: array[1..10] of famnaz;
  mas2: array[1..10] of nazgod;
  mas3: array[1..10] of allinf;
  i,j,i1:integer;
 
PROCEDURE ADD1;
begin
  i:=0;
  repeat
     i:=i+1;
      with mas1[i] do
        begin
         writeln ('input fam:');
         readln(fam);
         writeln ('input naz');
         readln(naz);
         end;
      writeln('continue y/n');
  until readkey='n';
end;
 
PROCEDURE ADD2;
begin
  i:=0;
  repeat
     i:=i+1;
      with mas2[i] do
        begin
         writeln ('input naz');
         readln (naz);
         writeln ('input god:');
         readln(god);
         end;
      writeln('continue y/n');
  until readkey='n';
write(' ',mas2[i].naz);
write(' ',mas2[i].god);
end;
 
procedure add3;
begin
  writeln;
  writeln('---fam------------naz----------god----');
  for j:= 1 to i do
  begin
   with mas3[j] do
   begin
    mas3[j].fam := mas1[j].fam;
    mas3[j].naz := mas1[j].naz;
   end;
    for i1 := 1 to i do
      begin
      if mas1[i].naz = mas2[i1].naz then
        begin
        mas3[i].god := mas2[i1].god;
       end;
     end;
  if mas3[i].god = '' then
  begin
  mas3[i].god := 'not found';
  end;
write(' ',mas1[i].fam);
write(' ',mas1[i].naz);
write(' ',mas3[i].god);
writeln;
end;
end;
begin
add1;
add2;
add3;
readln;
end.

program lab2;
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.