Двумерные массивы/Матрица (Delphi 7)

[ShaoKhan]

Добрый день.
Помогите решить такую задачку.

Переписать первые элементы каждой строки матрицы А (n x m) (размерностью n на m), бОльшие некоторого числа С, в массив В. Если в строке нет элемента, бОльшего С, то записать в массив В ноль.

[Mad_Cat]

for i:=1 to n do
begin
b[i]:=0;
j:=1;
while (j<=m) and (a[i,j]<c) do inc(j);
if (j<=m) then b[i]:=a[i,j];
end;

про ввод-вывод матриц и векторов читать тут