сумма максимальных значений элементов столбцов матрицы

[motaro]

помогите решить, у меня не работает

В заданной в программе матрице найти сумму максимальных значений элементов ее столбцов.

program var_18_4_3;
uses crt;
const k=5; m=5;
var matr:array [1..k,1..m] of integer;
    i,j,max,Result,s:integer;
begin
 Max:=0;
 s:=1;
 Result:=0;
 Randomize;
 clrscr;
 {Заполнение матрицы}
 for i:=1 to k do begin
  for j:=1 to m do begin
   matr[i,j]:=-5+(random(25));
  end;
 end;
 writeln;
 Max:=matr[1,s];
 for i:=1 to k do begin
  for j:=1 to m do begin
   if matr[i,s]>max then max:=matr[i,j];
   if j=5 then Result:=Result+max;
   s:=s+1;
   write (matr[i,j]:4); {Вывод матрицы}
  end;
  writeln;
 end;
 writeln;
 writeln ('Сумма максимальных значений элементов столбцов= ',Result);
 readln
end.

[Greblin]

program var_18_4_3;
uses crt;
const k=5; m=5;
var matr:array [1..k,1..m] of integer;
    i,j,max,s:integer;
begin
 s:=0;
 Result:=0;
 Randomize;
 clrscr;

 for i:=1 to k do begin
  for j:=1 to m do begin
   matr[i,j]:=-5+(random(25));
  end;
 end;
 writeln;

 for j:=1 to m do begin
  max := matr[1, j];
  for i:=1 to k do
   if matr[i,j]>max then max:=matr[i,j];
  s := s + max;
 end;

 for i := 1 to k do begin
  for j := 1 to m do
   write (matr[i,j]:4);
  writeln;
 end;
 writeln;
 writeln ('Сумма максимальных значений элементов столбцов= ', s);
 readln
end.

[motaro]

спасибо. работает отлично