Процедуры и функции

[Joowood]

В программе необходимо использовать оба вида подпрограмм: процедуры и функции. При этом для передачи информации в подпрограммы используйте формальные параметры. Предусмотрите вывод окончательного результата (печать матрицы и результата работы функции) в основной программе. Если функция не должна возвращать по условиям задачи некоторого численного значения, то предусмотрите возвращение выражения булевского типа.

Мой вариант
В процедуре заполните трехмерный массив третьего порядка случайными числами, а в функции определите, содержит ли матрица введенное пользователем число.

Прошу помочь
вот мои наброски

program 6;
var
f :array[1..3,1..3,1..3]of integer;
i,j,k:integer;
d: array [1..3,1..3,1..3]of integer;
Procedure Matrix (var f :array [1..3,1..3,1..3] of integer);
var
a:array [1..3,1..3,1..3] of integer;
i,j,k:integer;
Begin
Randomize;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
for k:=1 to 3 do
a[i,j,k]:=random(100);
end;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
for k:=1 to 3 do
f[i,j,k]:=a[i,j,k];
end;
writeln;
for i:=1 to 3 do begin
writeln;
for j:=1 to 3 do
writeln;
for k:=1 to 3 do
write (a[i,j,k], ' ');
end;
writeln;
end;
Function chislo (f:array [1..3,1..3,1..3] of integer):integer;
var
a:array [1..3,1..3,1..3] of integer;
i,j,k,m:integer;
begin
Writeln ('Vvedite chislo');
readln(m);
if m




неверное название темы (не отражает суть)
Неверно выбран раздел - для учебных задач предназначен раздел "Помощь студентам"
Код не оформлен, как того требуют правила форума.

ну и код обрывается на середине (хоть это, конечно, и не нарушение..)