В Паскале про двумерный массив помогите ламеру

[Greeb S]

1. Задан двумерный целочисленный массив Х(6,6). Найти минимальный элемент каждой строки и максимальный элемент каждого столбца массива и записать их в одномерный массив А.
2. Выполнить сортировку элементов массива А по возрастанию методом выбора.

[newerow1989]

var x:array[1..6,1..6] of integer;
    i,j,k,len,n:integer;
    a:array of integer;
begin
   Randomize;
   For i:=1 to 6 do
   begin
      For j:=1 to 6 do
      begin
         x[i,j]:=Random(21);
         Write(x[i,j]:2,'  ');
      end;
      Writeln;
   end;
   Writeln;
   len:=0;
   SetLength(a,0);
   For i:=1 to 6 do
   begin
      n:=x[i,1];
      For j:=2 to 6 do
         If n>x[i,j] then
            n:=x[i,j];
      len:=len+1;
      SetLength(a,len);
      a[len-1]:=n;
   end;
   For j:=1 to 6 do
   begin
      n:=x[1,j];
      For i:=2 to 6 do
         If n<x[i,j] then
            n:=x[i,j];
      len:=len+1;
      SetLength(a,len);
      a[len-1]:=n;
   end;
   For i:=0 to len-1 do
      Write(a[i]:2,'  ');
   Writeln;
   Writeln;
   For i:=1 to len-1 do
      If a[i-1]>a[i] then
      begin
         n:=a[i];
         k:=0;
         For j:=0 to i do
            If a[j]>n then
            begin
               k:=j;
               Break;
            end;
         For j:=i downto k+1 do
            a[j]:=a[j-1];
         a[k]:=n;
      end;
   For i:=0 to len-1 do
      Write(a[i]:2,'  ');
   Writeln;
   Writeln;
   Readln;
end.