Подпрограммы-поцедуры ,подпрограммы-функции/ Turbo Pascal

[Tonic1203]

Помогите сделать два задания:
Первое с использованием подпрограммы-процедуры:
Определить в массиве G(K,P) индексы элементов массива,равных введенному с клавиатуры числу ,и в массиве A(N,M).
Второе с использованием подпрограммы-функции:
Определить в массиве G(K,P) количество элементов массива,равных введенному с клавиатуры числу ,и в массиве A(N,M).
Буду очень благодарен ,если поможете.

[Хыиуду]

[syntax='Delphi']
type mas: array[1..100, 1..100] of integer;
procedure search(arr: mas, value: integer);
var i, j: integer;
begin
for i:=1 to 100 do
for j:=1 to 100 do
if (mas[i,j] = value) then writeln(i,', ',j);
end;
function cnt(arr: mas, value: integer):integer;
var i, j: integer;
begin
cnt:=0;
for i:=1 to 100 do
for j:=1 to 100 do
if (mas[i,j] = value) then inc(cnt);
end;
[/syntax]
Границы массива (все эти K, P, M, N) оставляю вам на самостоятельное изучение