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

[Аватар]

То только - уже две ошибки. В последнем Writeln еще одна. Еще if i>=10. Короче проверь до буковки

[fool.rzn]

Я не могу увидеть своих ошибок(((
вывожу ведь я не правильно да?

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