[Andruxa]

Код:

type
  massiv = array of array of integer;

 function matrix(a,b:integer; ar:massiv):integer;stdcall;external 'mas.dll';
 function max(a,b:integer; ar:massiv):integer;stdcall;external 'mas.dll';

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin

for i:=0 to 3 do
  for j:=0 to 3 do
   sg1.Cells[i,j]:= inttostr(random(100)-50);

end;;

нужно создать function чтоб определяла Одномерноый массив из максимальных элементов столбцов и формировала новый одномерный массив!