задача на обработку массива. pascal abc

[Gleb2206]

Привет подскажите пожалуйста у меня 10 вариант.
Я сделал интервал и занес его в массив b[i] и сделал основанной массив a[i,j] и если число в интервале есть в массиве должно вывести их количество и эти цифры.Я сделал через if a[i,j]=b[i] then h:h+1;
это в цикле и он не выводит кол-во.Подскажите пожалуйста.
Вот мой код:

var i,n,m,j,x,h,g,y,k,f,p:integer; 
d:real; 
a:array[1..100,1..100] of integer; 
b:array[1..100] of integer; 
z:array[1..100] of integer; 
begin 
write('Введите интервал от скольки: '); 
readln(x); 
write('До скольки: '); 
readln(y); 
write('Введите сколько строк в матрице: '); 
readln(n); 
write('Введите сколько столбцов в матрице: '); 
readln(m); 
writeln; 
write('Ваш интервал: '); 
for i:=x to y do begin 
b[i]:=x; 
x:=x+1; 
write(b[i],' '); 
end; 
writeln; 
writeln; 
for i:=1 to n do begin 
for j:=1 to m do begin 
a[i,j]:=random(10); 
write(a[i,j]:4); 
end; 
writeln; 
END; 
for i:=1 to n do
for j:=1 to m do
if a[i,j]=x then h:=h+1;
write('Колво : ',h);
end.

Пожалуйста, оформляйте Ваш код согласно правилам.

[Serge_Bliznykov]

так.
1) матрица должна быть вещественная (а не целая, как у Вас)
2) матрица квадратная (число строк и столбцов должно быть одинаковое)
3) массив B не нужен от слова "совсем" (а массив Z не нужен тем более - раз даже Вам он не пригодился)
4) нужно вводить значения А и B (причём, я бы сделал их вещественными)
5) матрицу нужно вводить, а не заполнять случайными числами
6) какое Вы количество и зачем считаете? Если в задаче стоит "в каждой строке найти первый элемент вне заданного диапазона".

исправляйте.
выкладывайте изменённый код.
будут вопросы - задавайте.