как выбрать Max элемент из суммы 3-х столбцов матр Опции

[-Мария-]

народ! помогите прямо щас, если можете.
надо выбрать максимальный элемент из сумм 3-х столбцов матрицы, поделенных на разные числа.
Как это сделать.
вот текст в котором надо это сделать:

program Vedomost;
const
 m=3; n=6;
 x=50; 
 y=45;  z=60; 
type
     vect=array[1..m] of real;
     matr=array[1..n,1..m] of real;
var
   D:matr;             line:vect;
 B,S,Sum,Sum1,Sum2,a:real;           i,j:integer;
   R,E,H:real;
        begin
       
       for i:=1 to n do
       for j:=1 to m do
        begin
         write(' ',m,'*',n,' a[',i,'',j,']');

         readLn(D[i,j]);
                         end;
               begin
             S:=0;
             Sum:=0; Sum1:=0;
             Sum2:=0;
              j:=1;
             for i:=1 to n do
             begin
             S:=S+D[i,j];
             B:=S;
             Sum:=B;
             end;
             writeln(Sum:8:2);
             j:=2;S:=0;
              for i:=1 to n do
             begin
             S:=S+D[i,j];
             B:=S;
             Sum1:=B;
             end;
             writeln(Sum1:8:2);
             j:=3;S:=0;
              for i:=1 to n do
             begin
             S:=S+D[i,j];
             B:=S;
             Sum2:=B;
             end;
      writeln('',Sum2:8:2);
                         H:=Sum/x;
                         R:=Sum1/y;
                          E:=Sum2/z;
              writeln(H:3:2);
               writeln(R:3:2);
               writeln(E:3:2);
      readln;
      end;
      end.