Среди сумм элементов столбцов матрицы найти наименьшую(pascal)

[tdsotm]

Дана целочисленная прямоугольная матрица размера m×n, заполненная
случайными числами. Среди сумм элементов столбцов матрицы найти наименьшую. Помогите пожалуйста дописать программу или опишите алгоритм.

 const k=5; m=5;
var matr:array [1..m,1..k] of integer;
    sum,i,j,max,s:integer;
begin
 max:=0;
 Randomize;
 
//заполнение матрицы
 for i:=1 to k do begin 
  
  for j:=1 to m do begin
   matr[i,j]:=random(10);
  end;
 end;
 writeln;
 //вывод матрицы 
   writeln('Исходная матрица');
   for i:=1 to m do 
   begin
     for j:=1 to k do
       write(matr[i,j]:4);
       writeln();
       end;
       sum:=0;
       

     for i:=1 to m do begin s:=1; sum:=sum + matr[i,s]; end; 
       for j:=1 to k do     
         begin
           s:=s+1;
          if sum>max then 
            max:=sum;
         end; 
         
   
 writeln ('Результат= ', max);
 end.

[Stilet]

const k=5; m=5;
var matr:array [1..m,1..k] of integer; b:array[1..k] of integer;
    sum,i,j,max,s:integer;
begin
 max:=0;
 Randomize;
 
//заполнение матрицы
 for i:=1 to m do begin 
  for j:=1 to k do begin
   matr[i,j]:=random(10); b[k]:=b[k]+matr[i,j];write(matr[i,j]:4);
  end;writeln();
 end;
 writeln;
 sum:=0;
     for i:=1 to k do  if sum<b[i] then sum:=b[k];
         
   
 writeln ('Результат= ', sum);
 end.

Годится?

[tdsotm]

Сообщение от Stilet

const k=5; m=5;
var matr:array [1..m,1..k] of integer; b:array[1..k] of integer;
    sum,i,j,max,s:integer;
begin
 max:=0;
 Randomize;
 
//заполнение матрицы
 for i:=1 to m do begin 
  for j:=1 to k do begin
   matr[i,j]:=random(10); b[k]:=b[k]+matr[i,j];write(matr[i,j]:4);
  end;writeln();
 end;
 writeln;
 sum:=0;
     for i:=1 to k do  if sum<b[i] then sum:=b[k];
         
   
 writeln ('Результат= ', sum);
 end.

Годится?

Нет, не работает, но суть понял