Массивы

[AlexLAN]

Условия задачи:
Сформировать матрицу размером NxK из случайных чисел. (NxK вводяться с клавиатуры).
Предусмотреть обработку ошибки при вводе неверных значений NxK.
вывести массив на экран.
Сформировать одномерный массив, состоящий из элементов матрицы больших R.

Вообщем я почти решил задачу но не получаеться создать одномерный массив из элементов больших R.
Вот то что я сделал

type
arr = array[1..100,1..100] of integer;
arr2 = array [1..100] of integer;
var
a:arr;
b:arr2;
i,j,N,K,R : Integer;
Begin
writeln ('Vvedite N');
readln(N);
WriteLn('Vvedite K');
readln(K);
if (N<0) and (K<0) then
Writeln ('ERROR');
For i:=1 To N Do
For j:=1 To K Do
a[i,j]:=Random(51);
for i:=1 to N do
begin
for j:=1 to N do Write(a[i,j]:5);
writeln;
end;
writeln ('Vvedite R');
readln (R);
for i:= 1 to N do
begin
b[i]:=a[i,1];
 for j:= 1 to K do
 if a[i,j]>R then b[i]:=a[i,j];{вот здесь программа не работает}
 end;
readln;
end.

Помогите пожалуйста найти ошибку!

Ой! Я сам все сделал! Тему можно удалить!