Помогите, пожалуйста, срочно написать код на паскале! Все голову сломала:(Даны массивы Н1..Н5 шифры предприятий 1ой группы НН1..НН8 шифры предприятий 2ой группы N1..N5 наименование продукций предприятий 2ой группы NN1..NN8наименование продукций предприятий 2о1 группы Вывести списки предприятий выпускающих одинаковую продукцию

Var H1:array[1..5] of integer;
    H2:array[1..8] of integer;
    N1:array[1..5] of integer;
    N2:array[1..8] of integer;
    i, j:integer;

begin
randomize;
for i:=1 to 5 do {заполняем массивы}
 begin
 H1[i]:=random(10);
 N1[i]:=random(10);
 end;
for i:=1 to 8 do
 begin
 H2[i]:=random(10);
 N2[i]:=random(10);
 end;
for i:=1 to 5 do {сравниваем продукцию}
 for j:=1 to 8 do
 if N1[i]=N2[j] then writeln(i, и , j, Выпускают одинаковую продукц.);
write(H1 );{выводим массивы}
for i:=1 to 5 do
write(H1[i], );
writeln;
write(N1 );
for i:=1 to 5 do
write(n1[i], );
writeln;
write(H2 );
for i:=1 to 8 do
write(H2[i], );
writeln;
write(N2 );
for i:=1 to 8 do
write(N2[i], );
writeln;
end.