Выбрать в одномерный массив группу элементов с 1 и 4 столбцa.

[Azazel-San]

Среди элементов матрицы заданного размера найти максимальный и минимальный элемент, выбрать в одномерный массив группу элементов с (1 и 3 строки - сделал сам!) 1 и 4 столбца, вывести их на экран. Заданную группу элемента той же матрицы отсортировать по убыванию и выбрать максимальный и минимальный элемент.
В кратце полностью сделал програму с выводом эл. 1 и 3 строки, а с 1 и 4 столбцом все никак немогу решить, прошу помочь мне с выбором в одномерный массив группу элементов с 1 и 4 столбца и вывод их на экран. (Просто в моём коде внесите правки и вместо строк сделайте со столпцами, а то что завис с ними..) Заранее спасибо!!!
Мой код!

[Aleksandr H.]

1.

for i := 1  to 8 do begin
for k := 1  to 7 do begin
if b[k] < b[k + 1] then begin
t:= b[k];
b[k] := b[k + 1];
b[k + 1] := t; 
end; end; end;

Странная сортировка. i не используется нигде.
2. Зачем в отсортированном масиве искать мин и макс? Возьми первый и последний елементы
3. 1 4 столбцы вроде как-то так

i := 1
while i<=4 do
begin
for j:=1 to 3 do
begin
b[k]:=a[j,i];
inc(k);
end;
i:=4
end;

[Azazel-San]

Сообщение от Aleksandr H.

1.

for i := 1  to 8 do begin
for k := 1  to 7 do begin
if b[k] < b[k + 1] then begin
t:= b[k];
b[k] := b[k + 1];
b[k + 1] := t; 
end; end; end;

Странная сортировка. i не используется нигде.
2. Зачем в отсортированном масиве искать мин и макс? Возьми первый и последний елементы
3. 1 4 столбцы вроде как-то так

i := 1
while i<=4 do
begin
for j:=1 to 3 do
begin
b[k]:=a[j,i];
inc(k);
end;
i:=4
end;

1. Насчет сортировки, а что не так? Посоветуй как лучше?
2. Ну это типа лабораторка и "мета": научится искать мин. и макс. - неважно вообщем.
3. Твой код по 1 и 4 столбцу - не работает: