Найти последовательность матрицы.

[gessi]

задачка:
Даны натуральное число n, действительное число x и действительная матрица размера nx2n. Получить последовательность b1,..., bn из нулей и единиц, где bi =1, если элементы i-ой строки матрицы не превосходят x и bi =0 в противном случае.
Помогите решить!!!!

[ОДИНОЧЕСТВО В СЕТИ]

{Даны натуральное число n, действительное число x и действительная матрица размера nx2n.
 Получить последовательность b1,..., bn из нулей и единиц, 
где bi =1, если элементы i-ой строки матрицы не превосходят x и bi =0 в противном случае}
  program matrix;
 uses crt;
 var a:array[1..100,1..200] of real;
      b:array[1..100] of real;
   i,j,n:integer;
  x:real;
 begin
writeln('input n');
readln(n);
writeln('input x');
readln(x);
for i:=1 to n do
for j:=1 to 2*n do
a[i,j]:=random(10)+random(100)/100;
 writeln;
clrscr; 
writeln('-------------------');
writeln('x=',x:6:3,' n=',n:6:3)
writeln('matrix');
 for i:=1 to n do begin
for j:=1 to m do
write(a[i,j]:6:3);
writeln;
end;
 writeln; 
 writeln('-------------------');
 for i:=1 to n do begin
   b[i]:=1;
   for j:=1 to m do
     if a[i,j]>x then b[i]:=0;
 end;
 writeln('vector');
 for i:=1 to n do begin
 write (b[i]:6:3);
 writeln; 
 writeln('-------------------');
 readln;
 end;