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

constn=50;m=50;vara:array[1..n,1..m]of integer;i,j,k,x,h:integer;beginreadln(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.