Помогите разобраться.Процедура заполнения массива Опции

[Redroza]

Массив(3х3) почему то не заполняется и получается нулевым. Где ошибка? Помогите разобраться

 
type
 massiv=array [1..10,1..10] of integer;
var
 m:integer;a:massiv;

{заполнение массива}
procedure zapolnenie (b:massiv);
var i,j:integer;
begin
randomize;
for i:=1 to 3 do begin
   for j:=1 to 3 do begin
   b[i,j]:=random(10);
   write(b[i,j],' ');
   end;
writeln;
end;
readln;
end;

{Нахождение max в массиве}
function maxim (b:massiv):integer;
var max,i,j:integer;
begin
max:=b[1,1];
for i:=1 to 3 do begin
for j:=1 to 3 do begin
if b[i,j]>max then max:=b[i,j];
end;end;
maxim:=max;
end;

begin
zapolnenie(a);
m:=maxim(a);
writeln(m);
readln;
end.