Developing.ru

Даны натуральное число n, действительное число x и действительная матрица размера nx2n. Получить последовательность b1,..., bn из нулей и единиц, где bi =1, если элементы i-ой строки матрицы не превосходят x и bi =0 в противном случае.
ПОМОГИТЕ ПОЖАЛУЙСТА)))))))

const n = 2;
var
m: array [1..n,1..2*n] of integer;
i,j,x,s:integer;
begin
writeln('Введите X');
readln(x);
writeln('Введите матрицу');
for i := 1 to n do
for j := 1 to 2*n do
read(m[i,j]);

for i := 1 to n do
begin
for j:=1 to 2*n do
s := s+m[i,j];
if s < x then writeln(1)
else writeln(0);
end;
end.