не умею. pascal

[kadet31]

сформировать двумерный массив А размером 6*8 с помощью генератора случайных чисел и вывести элементы массива на экран. Найти наименьшие элементы каждого столбца матрицы и записать их в одномерный массив В. Вывести элементы массива В на экран и в файл. Определение наименьшего элемента столбца матрицы оформить в виде функции.

[newerow1989]

var a:array[1..6,1..8] of byte;
    b:array[1..8] of byte;
    i,j:byte;

   function eee(j:byte):byte;
   var i:byte;
   begin
      Result:=a[1,j];
      For i:=2 to 6 do
         If Result>a[i,j] then
            Result:=a[i,j];
   end;

begin
   Randomize;
   For i:=1 to 6 do
   begin
      For j:=1 to 8 do
      begin
         a[i,j]:=Random(21);
         Write(a[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   For j:=1 to 8 do
   begin
      b[j]:=eee(j);
      Write(b[j],'  ');
   end;
   Readln;
end.

Сойдет?

[kadet31]

Спасибо, Зёма