похоже, я не учла какое-то условие
объясните пожалуйста, какого условия не хватает
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.