массивы

Const
  //Размерность матрицы...
  n = 10;
  m = 7;
Var
  A : Array[1..n,1..m] Of Extended;
  h : Array[1..m] Of Integer;
 
  i,j : Integer;
  b : Boolean;
begin
  For i:=1 To m Do //Перебираем по столбцам...
  Begin
    b:=True;
    //Проверим симметричность
    For j:=1 To (n Div 2) Do
    If A[j,i]<>A[n-j+1,i] Then
    Begin
      b:=False; //Признак того, что столбец не симметричен
      Break; //Дальше проверять нет смысла
    End;
 
    If b Then
    h[i]:=1 Else h[i]:=0;
  End;
end.

Const
  //Размерность матрицы...
  n = 10;
  m = 7;
Var
  A : Array[1..n,1..m] Of Integer;
  h : Array[1..n] Of Integer;
 
  i,j : Integer;
  b : Boolean;
  d : Byte;
begin
  For i:=1 To n Do //Перебираем по строкам...
  Begin
    b:=True;
    //d - признак упорядочивания: 1 - по возрастанию; 2 - по убыванию
    d:=0;
    //Проверим упорядоченность...
    For j:=1 To m-1 Do
    Case d Of
     //Упорядочивание еще не определено
     0 :
       If A[i,j]>A[i,j+1] Then
       d:=1 Else
       If A[i,j]<A[i,j+1] Then
       d:=2;
     //Упорядочивания по возрастанию
     1 :
       If A[i,j]>A[i,j+1] Then
       Begin
         b:=False; //Признак того, что строка не упорядочена
         Break; //Дальше проверять нет смысла
       End;
     //Упорядочивания по убыванию
     2 :
       If A[i,j]<A[i,j+1] Then
       Begin
         b:=False; //Признак того, что строка не упорядочена
         Break; //Дальше проверять нет смысла
       End;
    End;
 
    If b Then
    h[i]:=1 Else h[i]:=0;
  End;
end.