Помогите найти непрерывный участок из 10 элементов, сумма которых максимальна

[fool.rzn]

Ввел 2 матрицы, сложил их, а теперь надо найти непрерывный участок из 10 элементов, сумма которых максимальна. Не представляю как сделать, видел код на C++, но не понимаю синтаксиса, прошу помогите.
Вот код, который уже написал:

program a1;
uses crt;
var
 a,b,s: array [1..20,1..20] of integer;
 m,n,i,j: integer;
begin
 clrscr;
 write('Vvedite kolichestvo strok matric: ');
 readln(n);
 If (n>0) and (n<20) then
 begin
  write('Vvedite kolichestvo stolbcov matric: ');
  readln(m);
  If (m>0) and (m<20) then
  begin
   begin
   randomize;
   writeln('Sozdanie matric...');
   writeln;
   writeln ('matrica a:');
   for i:=1 to n do
    begin
     writeln;
     for j:=1 to m do
      begin
       a[i,j]:=random(10);
       write(a[i,j],' ');
      end;
    end;
   writeln;
   writeln;
   writeln('matrica b:');
   for i:=1 to n do
    begin
     writeln;
     for j:=1 to m do
      begin
       b[i,j]:=random(10);
       write(b[i,j],' ');
      end;
    end;
   end;
   begin
    writeln;
    writeln;
    writeln('Summa: ');
    for i:=1 to n do
     begin
     writeln;
     for j:=1 to m do
      begin
       s[i,j]:=a[i,j]+b[i,j];
       write(s[i,j],' ');
      end;
    end;
    end;
    end
     else
 Writeln ('Vvedite znachenie ot 1 do 20');
 Readln;
    end
 else
 Writeln ('Vvedite znachenie ot 1 do 20');
 Readln;
 readkey;
end.

[Аватар]

Что такое непрерывный участок матрицы? Если представляешь что это такое, то изобрази на примере

[fool.rzn]

[Аватар]

Ты же вектор изобразил. А у тебя матрица. Как в матрице трактуется непрерывный участок? Можно все строки вытянуть в одну, можно столбцы. И рассматривать как один вектор. А можно только в строках или столбцах искать. Как?

[fool.rzn]

В каждой строке отдельно искать

[Аватар]

  const n = 20;
  var m: array [1..n,1..n] of Integer;
  ...
  s1:=-1;
  for i:=1 to n do begin
    s:=0;
    for j:=1 to n do begin
      Inc(s,m[i,j]);
      if j>=10 then begin
        if s>s1 then begin s1:=s; i1:=i; j1:=j-9; end;
        Dec(s,m[i,j-9]);
      end;
    end;
  end;
  //s1 - max сумма, i1,j1 - координаты начала

[fool.rzn]

А выводить как эти участки?

[fool.rzn]

Или как вывести запись, допустим, что со i по n элементы сумма ьаксимальна?

[Аватар]

Координаты же начала есть. И участок один - с максимальной суммой. А как выводить тебе видней

[fool.rzn]

Где тут я мог ошибиться?

s1:=-1;
  for i:=1 to n do begin
    s:=0;
    for j:=1 to m do begin
      Inc(s,mas[i,j]);
      if i>=10 then begin
        if s>s1 then begin s1:=s; j1:=j; i1:=i-9; end;
        Dec(s,mas[j,i-9]);
      end;
    end;
    Writeln ('Uchastok s ',i,' do ',i+9,'- imeet maximalnuyu summe elementov= ',s);
  end;
 readkey;
end.