Процедуры

[Dog]

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


Помогите написать прогу на паскале с помощью процедур(сам в процедурах noo6)

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

type matr= array [1..100,1..200]of real;
type vector= array[1..100] of integer;
............. 
procedure noob(var a:matr;n:integer;x:real;var b:vector)
var i:integer;
   j:integer;
begin
for i:=1 to n do
begin
b[i]:=1;
for j:=1 to 2*n do
if a[i,j]>x then b[i]:=0;
end;
end;
........

было уже раз 5 на моей памяти!

[Dog]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

type matr= array [1..100,1..200]of real;
type vector= array[1..100] of integer;
............. 
procedure noob(var a:matr;n:integer;x:real;var b:vector)
var i:integer;
   j:integer;
begin
for i:=1 to n do
begin
b[i]:=1;
for j:=1 to 2*n do
if a[i,j]>x then b[i]:=0;
end;
end;
........

было уже раз 5 на моей памяти!

Спасибо большое