Задан массив Bij; i=7; j=7. Определить количество всех элементов 1<Bij<15. Распечатать исходные значения и результат- Pascal(Паскаль)

var
b:array [1..7,1..7] of integer;
i,j,z:integer;
begin
for i:=1 to 7 do
for j:=1 to 7 do
b[i,j]:=random(50)-25;

for i:=1 to 7 do
begin
writeln;
for j:=1 to 7 do
write(b[i,j]:6);
end;
writeln;
for i:=1 to 7 do
for j:=1 to 7 do
if (b[i,j]>1) and (b[i,j]<15) then inc(z);
write('количество искомых элементов: ',z)
end.