Question

пожалуйста очень нужно подсчитать количество элементов двумерных таблицах A(n,m) и B(s,d) принадлежащих отрезку [0,1] Программа паскаль 
Program _9;Type marr = array [1..5,1..5] of real;Var mat1,mat2: marr;    i, j,k,m: integer;Begin     randomize;     for i := 1 to 5 do        for j := 1 to 5 do         begin             mat1[i,j]:=random(10)*random-3;             mat2[i,j]:=random(10)*random-3;         end;     writeln('Первая таблица:');               for i := 1 to 5 do        begin           for j := 1 to 5 do             write(mat1[i,j]:2:2,'  ');             writeln;       end;       writeln('Вторая таблица:');       for i := 1 to 5 do          begin             for j := 1 to 5 do             write(mat2[i,j]:2:2,'  ');             writeln;end;             end.нужно посчитать элементы которые находятся в интервале от 0 до 1