Массив записей

[Hinc]

Приветствую.

Ввести массив записей, каждый из которых содержит сведения о фамилии автора и названии книги. Построить новый массив записей, который содержит дополнительно сведения о годе издания. Год издания берется из массива записей, который содержит название книги и год.

Помогите пожалуйста.

Program n8;
uses crt;
var i, i1:integer;
famnaz : array[1..10] of record
fam : string;
naz : string;
end;
nazgod : array[1..10] of record
naz : string;
god : string;
end;
allinf : array[1..10] of record
fam : string;
naz : string;
god : string;
end;
 
procedure add; 
begin
i:=1; 
repeat
writeln ('input fam:');
readln(famnaz[i].fam);
writeln ('input naz');
readln (famnaz[i].naz);
i:=i+1;
writeln('continue y/n');
until readkey='n';
end;
 
procedure add1; 
begin
i:=1; 
repeat
writeln ('input naz');
readln (nazgod[i].naz);
writeln ('input god:');
readln(nazgod[i].god);
i:=i+1;
writeln('continue y/n');
until readkey='n';
end;
 
procedure mas3;
//var i,i1:integer;
begin
 {тут ошибка} for i:= 1 to 10 do begin {тут ошибка}
allinf[i].fam := famnaz[i].fam;
allinf[i].naz := famnaz[i].naz;
for i1 := 1 to 10 do begin
if famnaz[i].naz = nazgod[i1].naz then begin
allinf[i].god := nazgod[i1].god;
end;
end;
if allinf[i].god = '' then begin
allinf[i].god := 'net';
end;
write(' ',famnaz[i].fam);
write(' ',famnaz[i].naz);
write(' ',allinf[i].god);
writeln;
end;
end;
 
begin
add;
add1;
mas3;
 
readln;
end.