Проверка многомерного массива на тип сортировки его строк.

[FatCat]

Ввести размерность матрицы и значения ее элементов.
Построить вектор В, где В(i) -
равно 1, если значения элементов i-ой строки упорядочены по возрастанию,
0, в противном случае.
Сам сначала не понял задание, потом препод объяснил:
Проверяем каждую строку массива, если элементы в ней упорядочены по возрастанию, то на экран выводится B[i]=1, где I - номер строки, если по убыванию, или вообще не упорядочена то выводим 0.
Помогите с самой проверкой.

program lab2;
uses crt;
var a,b:array[1..100,1..100] of integer;
    k,kstrok,kstolb,elem,I,J:integer;
begin
clrscr;
repeat
writeln('Vvedi kol-vo strok (ot 1 do 5)');
read(kstrok);
If ((kstrok<=0) or (kstrok>5)) then writeln('dannie ne verni, poprobuite snova!');
until ((kstrok>=1) and (kstrok<=5));
repeat
writeln('Vvedi kol-vo stolbcov (ot 1 do 5)');
read(kstolb);
If ((kstolb<=0) or (kstolb>5)) then writeln('Dannie ne verni, poprobuite snova!');
until ((kstolb>=1) and (kstolb<=5));
writeln('Vvedite znachenie elementov matrici');
For i:=1 to kstrok do
For J:=1 to kstolb do
begin
Writeln('Vvedite element A ', I  ,',', J );
read (A[I,J]);
end;
Writeln('Isxodnii massiv');
For I:=1 to kstrok do
begin
Writeln;
For J:=1 to kstolb do
write(A[I,J]:3);
end;
for i:=1 to kstolb-1 do
for j:=1 to kstrok do
begin
If a[i,j]<a[i+1,j] then
k:=0
else
k:=1;
end;
writeln;
for i:=1 to kstrok do
begin
writeln ('b[',i,']=', k);
end;
readkey;
end.

[FatCat]

Уже нашел ошибку с циклом

for i:=1 to kstrok do
for j:=1 to kstolb-1 do

Что еще не верно?

[FatCat]

Оказывается мой способ работает только для двумерных массивов...

[FatCat]

Ну помогите...

[FatCat]

Судя по тому, что никто не отвечает, у меня возникают мысли что это задание невозможно выполнить.