Поиск суммы эллементов матрицы шагами вправо и вниз

const
  MaxSize = 10;
 
type
  aType = array [0..MaxSize, 0..MaxSize] of Integer;
 
var
  Rows, Cols : Byte;
  i, Row, Col : Byte;
  A, S : aType;
  Stek : array [0..MaxSize] of Integer;
  Sum : Integer;
  
begin
  Rows := 4; Cols := 4;
  A[0,0] :=  9; A[0,1] :=  2; A[0,2] :=  6; A[0,3] :=  2;
  A[1,0] :=  1; A[1,1] :=  3; A[1,2] :=  9; A[1,3] :=  1;
  A[2,0] := 10; A[2,1] := 11; A[2,2] := 13; A[2,3] := 15;
  A[3,0] :=  5; A[3,1] :=  6; A[3,2] :=  1; A[3,3] := 10;
  
  { Поиск максимальной суммы }
  S[0, 0] := A[0, 0];
 
  for Col := 1 to Pred(Cols) do
    S[0, Col] := S[0, Col-1] + A[0, Col];
    
  for Row := 1 to Pred(Rows) do
    S[Row, 0] := S[Row-1, 0] + A[Row, 0];
    
  for Row := 1 to Pred(Rows) do
    for Col := 1 to Pred(Cols) do
      S[Row, Col] := A[Row, Col] + Max(S[Row-1, Col], S[Row, Col-1]);
  
  WriteLn('Ответ: ', S[Rows-1, Cols-1]);
  
  { Как эта сумма получилась }
  Stek[0] := 0;
  Row := Rows-1; Col := Cols-1;
  Inc(Stek[0]); Stek[Stek[0]] := S[Row, Col];
  repeat
    if Row = 0 then
      Dec(Col)
    else if Col = 0 then
      Dec(Row)
    else if S[Row-1, Col] > S[Row, Col-1] then
      Dec(Row)
    else
      Dec(Col);
    Inc(Stek[0]); Stek[Stek[0]] := S[Row, Col];
  until Row + Col = 0;
  
  i := Stek[0];
  Sum := Stek[i];
  Write(Stek[i]);
  while i > 2 do
    begin
      Dec(i);
      Write(' + ', Stek[i] - Sum);
      Sum := Stek[i];
    end;
  WriteLn(' = ', Stek[1]);
end.