Двумерный массив

Заданы матрица А [4x8] и одномерный массив В [I:4] , заполненных случайным образом. Составить программу печати минимального элемента столбца матрицы А, номер которого равен максимальному элементу одномерного массива В.проверьте все правильно
1 ответ

procedure TForm1.Button1Click(Sender: TObject);
const
  n=4;
var
  a: array[1..n,1..2*n] of integer;
  b: array[1..n] of integer;
  i, j, max, min: integer;
begin
 for i:=1 to n do
  begin
   for j:=1 to 2*n do
    begin
      a[i,j]:=random(99)+1;
      stringgrid1.cells[j-1,i-1]:=inttostr(a[i,j]);
    end;
  end;
 for i:=1 to n do
  begin
   b[i]:=random(2*n)+1;
   stringgrid2.cells[i-1,0]:=inttostr(b[i]);
   if i=1 then max:=b[1]
   else if b[i]>max then max:=b[i];
  end;
 label1.caption:='Максимальный элемент массива b='+inttostr(max);
 min:=a[1,max];
 for i:=1 to n do
 if a[i,max]<min then min:=a[i,max];
 label2.caption:='Минимальный элемент столбца '+inttostr(max)+'='+inttostr(min);
 
end;