Две ошибки.
1. У Вас:
begin
max:=0;
for i:=1 to n do
begin
for j:=1 to c do
begin
if max<m[i,j]
then
max:=m[i,j];
imax:=i;
jmax:=j;
end;
end;
Надо:
Код:
max:=vmin; {Лучше так}
for i:=1 to n do
for j:=1 to c do
if max<m[i,j] then
begin
max:=m[i,j];
imax:=i;
jmax:=j;
end;
2. У Вас:
S:=S+m[imax,jmax];
Надо: