В двумерном массиве размерностю 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.