Помогите, пожалуйста, срочно написать код на паскале! Все голову сломала:(
Даны массивы Н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;beginrandomize;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 dowrite(H1[i], ' ');writeln;write('N1 ');for i:=1 to 5 dowrite(n1[i], ' ');writeln;write('H2 ');for i:=1 to 8 dowrite(H2[i], ' ');writeln;write('N2 ');for i:=1 to 8 dowrite(N2[i], ' ');writeln;end.