вот скудные наброски-->
m=10;
type Temem=real;
Tvector=array [1..n,1..m] of Telem;
var a: Tvector;
i,j: integer;
left,right: integer;
flag:boolean;
begin
i:=left;
result:=true;
while (i<right) and result do
for i:=j+1 to n do
if not flag (a[j+1,i],a[j+1,i+1]) then
not flag for ...;
...
-идея в том, что бы проверять упорядоченность с левой части строк до правой, тоже самое со столбцами.Подскажите пожалуйста как правильно написать циклы для проверки нижней строки и левого столбца.Их же надо в обратном порядке считать как бы.И дальше, когда проверили 1 круг, при следуующей строке надо изменить в цикле только до n-1, потом до n-2 и т..д.?
P.S. если не сложно, то можно ответы давать в развёрнутом виде? У меня совсем нету опыта по написанию программ.