Нахождение максимального элемента в стрингриде.. либо в подпрограммах что то дописать.. не наю..(

[Cheshire Cat]

type
  masiv=array[1..5,1..5] of integer;
   arone=array[1..5,1..5] of integer;
....................

var
  Form1: TForm1;
 massiv: array[1..30] of real;
  ss,sc: integer;
  m1,m2,m3,m4,m5,m6: arone;
implementation

{$R *.dfm}

function sumstr(mas:masiv; i,n:integer):integer ;// Сумма  строк
var j,res,k: integer;
begin
res:=0;
k:=1;
for j := 1 to n do  begin
res:=res+mas[i,j];
m1[k,j]:= m1[k,j]+mas[i,j] ;
end;
sumstr:=res;
end;
                                                       // сумма строк
procedure TForm1.prst(mas: masiv; j, n: integer; var prstilb: integer);
var i,res:integer;
begin
res:=1;
  for i:=1 to n do
    res:=res*mas[i,j];  begin
//    m1[i,j]:=m1[i,j]+mas[i,j] ;
    end;
    prstilb:=res;      // произведение строк
end;

procedure TForm1.prstol(mas: masiv; i, n: integer; var prstilb: integer);
var j,res:integer;
begin
res:=1;
  for j:=1 to n do  begin
    res:=res*mas[i,j];
//    m1[i,j]:=m1[i,j]+mas[i,j] ;
   end;
   prstilb:=res;
end;

function TForm1.sumcol(mas: masiv; j, n: integer): integer;
var i,res:integer;
begin
res:=0;                         // сумма стобцов
  for i:=1 to n do begin
    res:=res+mas[i,j];
//    m1[i,j]:=m1[i,j]+mas[i,j] ;
  end;
  sumcol:=res;
end;
                                                                    
function TForm1.avgstolb(mas: masiv; j, n: integer): real;
var i,res:integer;
begin
res:=0;                         // средне по стобцам
  for i:=1 to n do  begin
    res:=res+mas[i,j];
//    m1[i,j]:=m1[i,j]+mas[i,j] ;
  end  ;
  avgstolb:=res/5;
end;

function TForm1.avgstr(mas: masiv; i, n: integer): real;
var j,sum:integer; res: real;
begin
res:=0;                         // средне по строкам
sum:=0;
  for j:=1 to n do begin
    sum:=sum+mas[i,j];
//    m1[i,j]:=m1[i,j]+mas[i,j] ;
  end;
  res:=sum/5;
end;

procedure TForm1.Button1Click(Sender: TObject);
var r,t,i,j,ss,sc,k,m,g: integer;pstl,pstrok: integer;
srstr,srstolb,sc3: real;  a,mh: masiv;
begin
randomize;
for i := 1 to  5 do
 for j := 1 to  5 do begin
 stringgrid2.Cells[j-1,i-1]:=inttostr(m1[i,j]);

  a[i,j]:=random(20);
  stringgrid1.Cells[j-1,i-1]:=inttostr(a[i,j]);
  for  k:=1 to 5 do begin
    prst( a,k,5,pstrok);
    stringgrid1.Cells[k-1,7]:=inttostr(pstrok);
    ss:=sumcol( a,k,5);
    stringgrid1.Cells[k-1,6]:=inttostr(ss);
   srstr:= avgstolb( a,k,5);
   stringgrid1.Cells[k-1,8]:=floattostr(srstr);
   end;
  for m:=1 to 5 do begin
  prstol( a,m,5,pstl);
  sc:=sumstr( a,m,5);
  srstolb:= avgstolb( a,m,5);
  stringgrid1.Cells[6,m-1]:=inttostr(sc);
  stringgrid1.Cells[7,m-1]:=inttostr(pstl);
  stringgrid1.Cells[8,m-1]:=floattostr(srstolb);
  end;

Массив не могу сформировать(((((
там нуно максимальное найти, а хз как формировать..((



Дае 2 мерный массив, у него находиться, среднее, сумма и произвдение по строкам и тбцам.
Потом среди всех найденый ищеться максимальное....

[Cheshire Cat]

Сообщение от Cheshire Cat

type
  masiv=array[1..5,1..5] of integer;
   arone=array[1..5,1..5] of integer;
....................

var
  Form1: TForm1;
 massiv: array[1..30] of real;
  ss,sc: integer;
  m1,m2,m3,m4,m5,m6: arone;
implementation

{$R *.dfm}

function sumstr(mas:masiv; i,n:integer):integer ;// Сумма  строк
var j,res,k: integer;
begin
res:=0;
k:=1;
for j := 1 to n do  begin
res:=res+mas[i,j];
m1[k,j]:= m1[k,j]+mas[i,j] ;
end;
sumstr:=res;
end;
                                                       // сумма строк
procedure TForm1.prst(mas: masiv; j, n: integer; var prstilb: integer);
var i,res:integer;
begin
res:=1;
  for i:=1 to n do
    res:=res*mas[i,j];  begin
//    m1[i,j]:=m1[i,j]+mas[i,j] ;
    end;
    prstilb:=res;      // произведение строк
end;

procedure TForm1.prstol(mas: masiv; i, n: integer; var prstilb: integer);
var j,res:integer;
begin
res:=1;
  for j:=1 to n do  begin
    res:=res*mas[i,j];
//    m1[i,j]:=m1[i,j]+mas[i,j] ;
   end;
   prstilb:=res;
end;

function TForm1.sumcol(mas: masiv; j, n: integer): integer;
var i,res:integer;
begin
res:=0;                         // сумма стобцов
  for i:=1 to n do begin
    res:=res+mas[i,j];
//    m1[i,j]:=m1[i,j]+mas[i,j] ;
  end;
  sumcol:=res;
end;
                                                                    
function TForm1.avgstolb(mas: masiv; j, n: integer): real;
var i,res:integer;
begin
res:=0;                         // средне по стобцам
  for i:=1 to n do  begin
    res:=res+mas[i,j];
//    m1[i,j]:=m1[i,j]+mas[i,j] ;
  end  ;
  avgstolb:=res/5;
end;

function TForm1.avgstr(mas: masiv; i, n: integer): real;
var j,sum:integer; res: real;
begin
res:=0;                         // средне по строкам
sum:=0;
  for j:=1 to n do begin
    sum:=sum+mas[i,j];
//    m1[i,j]:=m1[i,j]+mas[i,j] ;
  end;
  res:=sum/5;
end;

procedure TForm1.Button1Click(Sender: TObject);
var r,t,i,j,ss,sc,k,m,g: integer;pstl,pstrok: integer;
srstr,srstolb,sc3: real;  a,mh: masiv;
begin
randomize;
for i := 1 to  5 do
 for j := 1 to  5 do begin
 stringgrid2.Cells[j-1,i-1]:=inttostr(m1[i,j]);

  a[i,j]:=random(20);
  stringgrid1.Cells[j-1,i-1]:=inttostr(a[i,j]);
  for  k:=1 to 5 do begin
    prst( a,k,5,pstrok);
    stringgrid1.Cells[k-1,7]:=inttostr(pstrok);
    ss:=sumcol( a,k,5);
    stringgrid1.Cells[k-1,6]:=inttostr(ss);
   srstr:= avgstolb( a,k,5);
   stringgrid1.Cells[k-1,8]:=floattostr(srstr);
   end;
  for m:=1 to 5 do begin
  prstol( a,m,5,pstl);
  sc:=sumstr( a,m,5);
  srstolb:= avgstolb( a,m,5);
  stringgrid1.Cells[6,m-1]:=inttostr(sc);
  stringgrid1.Cells[7,m-1]:=inttostr(pstl);
  stringgrid1.Cells[8,m-1]:=floattostr(srstolb);
  end;

Массив не могу сформировать(((((
там нуно максимальное найти, а хз как формировать..((

Дан двумерный массив, у него построчно и по стобцам найти среднее, сумму и произвдение, из них найти максимум...

мб уже выцепить ячейки с произвдением? и им имена переменных дать...
а их сравнить...