1)дан двумерный массив a[n,n]. сформировать одномерный массив в, состоящий только максимальных элементов каждого столбца. 2)отсортировать каждую строку двумерного массива по возрастанию.

Const n = 10;
Var
  A       : array[1..n,1..n] of Integer;
  B       : array[1..n] of Integer;
  i,j,max : Integer;
Begin
  Randomize;
  Writeln('Массив A: ');
  For i:=1 to n do
  Begin
    max:=1;
    For j:=1 to n do
    Begin
      a[j,i]:=Random(90)+10;
      If a[j,i]>a[max,i] then max:=j;
    end;
    B[i]:=a[max,i];
  end;
  For i:=1 to n do
  Begin
    For j:=1 to n do Write(a[i,j]:3);
    Writeln;
  end;
  Writeln(#13,'Массив B: ');
  For i:=1 to n do Write(b[i]:3);
  Writeln;
end.