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

uses crt;
const
 n=2;
type
 matr=array[1..n,1..2*n] of real;
 mas=array[1..n] of byte;
var i,j:byte;
    x:real;
    a:matr;
    b:mas;

procedure vvod(nin:byte;var ain:matr);
var iin,jin:byte;
begin
 for iin:=1 to nin do
  for jin:=1 to 2*nin do
   begin
    write('a[',iin,jin,']=');
    readln(ain[iin,jin]);
   end;
end;

procedure vivod(nin:byte;ain:matr);
var iin,jin:byte;
begin
 for iin:=1 to nin do
  begin
   writeln;
   for jin:=1 to 2*nin do
    write(ain[iin,jin]:6:2);
  end;
end;

procedure decide(xin:real;nin:byte;ain:matr;var bin:mas);
var iin,jin:byte;
begin
 for iin:=1 to nin do
   for jin:=1 to 2*nin do
    if ain[iin,jin]<=xin then bin[iin]:=1
                          else
                           begin
                            bin[iin]:=0;
                            break;
                           end;
end;
begin
 vvod(n,a);
 write('x=');readln(x);
 decide(x,n,a,b);
 vivod(n,a);
 writeln;
 writeln('Result:');
 for i:=1 to n do
  write(b[i]:2);
 readkey;
end.