Массив(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.
procedure zapolnenie (b:massiv); // var добавь
и randomize в теле программыц напиши,а не в процедуре
Спасибо, все работает