процедура, проверяющая возрастание Опции

[18192123]

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

похоже, я не учла какое-то условие
объясните пожалуйста, какого условия не хватает

program vozr;
uses crt;
const n=3;
type matr=array[1..n,1..n]of integer;
procedure input(var a:matr);
var i,j:1..n;
begin
writeln ('vvedite elementi');
for i:=1 to n do
for j:=1 to n do read (a[i,j]);
end;
procedure check(var a:matr);
var i,j:1..n;
    f,check:boolean;
begin
f:=true;
i:=1;
while (i<=n)and(f=true) do
      begin
           j:=1;
           while (j<n)and(a[i,j]<=a[i,j+1]) do
           j:=j+1;
      end;
check:=f;
writeln (check);
end;
VAR a:matr;
BEGIN
clrscr;
input(a);
check(a);
readkey;
end.

[volvo]

Смотри, что ты делаешь:

{ идешь по строке, начиная с первого элемента }
j := 1;
{ пока не конец строки и следующий эл-т НЕ меньше предыдущего }
while (j<n) and (a[i,j]<=a[i,j+1]) do
  { увеличивать индекс }
  j:=j+1;

{
  а вот тут надо проверить, на каком месте цикл закончился.
  Если j = n, то значит, сработал контроль выхода за предел строки,
  а сама строка является НЕубывающей, иначе - строка НЕ является
  неубывающей (в ней был элемент, нарушивший отношение <= )
}
check := (j = n); { <--- Это ты забыла }