В двумерном массиве размерностю nxm (n, m неболее 50), определить колличество строк, все элементы которых не более заданного числа x

Const

n=50; m=50;

var

a:array[1 ... n, 1 ... m]of integer;

i, j, k, x, h:integer;

begin

readln (x) ;

for i:=1 to n do

begin h:=0;

writeln;

for j:=1 to m do

begin

a[i, j]:=random (100) ;

write (a[i, j]:4) ;

if a[i, j]<=x then

h:=h+1

end;

if h=m then k:=k+1;

end;

writeln;

writeln (k) ;

end.