Помогите написать ПРОГУ ПО ПАСКАЛЮ!!!

type massiv_1 = array[1..10] of integer;
massiv_2 = array[1..4, 1..4] of integer;

procedure input_massiv_1(var c: massiv_1);
var i: integer;
begin
for i:=1 to 10 do
begin
c[i]:=random(100);
write (c[i]:4);
end;
writeln;
writeln;
end;

procedure input_massiv_2(var c: massiv_2);
var i, j: integer;
begin
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
c[i, j]:=random(100);
write (c[i, j]:4);
end;
writeln;
end;
writeln;
writeln;
end;

procedure search_in (a: massiv_1; b: massiv_2);
var i, j, k, h, kolvo: integer;
begin
kolvo:=0;
for k:=1 to 10 do
begin
h:=0;
for i:=1 to 4 do
for j:=1 to 4 do
if a[k] = b[i,j] then inc (h);
if h <> 0 then inc (kolvo);
end;
writeln('количество элементов первого массива встречаются во втором массиве = ', kolvo);
end;

var a: massiv_1;
b: massiv_2;
begin
input_massiv_1 (a);
input_massiv_2 (b);
search_in (a, b);
end.

используй эту программу, не получится - пиши
program massiv;
uses crt;
type matr= array[1..100,1..100] of integer;
procedure vvod(var c:matr; n,m:integer); //---------------------------------
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do
c[i,j]:=random(101);
end; //----------------------------------------------------
procedure vivod( c:matr; n,m:integer);
var i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to m do
write(c[i,j]:3);
writeln; end;
end; //-------------------------------------------------
var
i,j,n,m:integer;
a:matr;
BEGIN
randomize;
clrscr;
writeln('Zadacha na massiv ');
writeln('---------------------------');
writeln;
write('Vvesti N and M: ');
readln(n,m);
writeln('Massiv A: ');
{ for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(101);
write(a[i,j]:3);
end;
writeln; end; }
vvod(a,n,m);
vivod(a,n,m);
end.

очень простая программа. Надо сделать цикл по первому массиву и вычислить сколько элементов первого массива встречаются во втором массиве