Как модифицировать волновой алгоритм, чтобы он считал не количество шагов, а сумму элементов массива до конечной точки?

Program Voln;
Uses Crt;
Var    XS, YS, XE, YE : Byte;
   X, Y, I,n,m: Byte;
   Map : array [1..10, 1..10] of Byte;     {Исходная матрица}
   MapM : array [1..10, 1..10] of Byte; {Матрица покрытий}
   Moves: Byte;
Procedure Next(Var X, Y : Byte);
 
Begin
     If (X <n) and (MapM[X, Y] - MapM[X + 1, Y] = 1) then
        Begin
             X := X + 1;   
             Exit;
        End;
     If (X >1) and (MapM[X, Y] - MapM[X - 1, Y] = 1) then
        Begin
             X := X - 1;   
             Exit;
        End;
     If (Y <m) and (MapM[X, Y] - MapM[X, Y + 1] = 1) then
        Begin
             Y := Y + 1; 
            Exit;
        End;
     If (Y >1) and (MapM[X, Y] - MapM[X, Y - 1] = 1) then
        Begin
             Y := Y - 1;  
             Exit;
        End;
End;
Begin
     ClrScr;
     writeln('Длина, Ширина');  readln(n,m);
          For Y := 1 to n do
         Begin
              For X := 1 to m do 
                Map[n,m]:=random(50);
                
               
         End;
         
     WriteLn('Стартовая точка х и у: ');
     ReadLn(XS, YS);
     WriteLn('Конечная точка х и у: ');
     ReadLn(XE, YE);
     writeln();
                write(Map[x,y]:4);
                writeln();
     If (Map[XS, YS] = 1) or (Map[XE, YE] = 1) then
        Begin
             WriteLn('Error!!!');
             ReadLn;
             Halt;
        End;
     MapM[XS, YS] := 1;
     I := 1;  
     Repeat
           I := I + 1;
           For Y := 1 to n do
             For X := 1 to m do
               If MapM[X, Y] = I - 1 then
                 Begin
                   If (Y <m) and (MapM[X, Y + 1] = 0)
and (Map[X, Y+1] = 0) Then  MapM[X, Y+1] := I;
                   If (Y >1)
and (MapM[X, Y-1] = 0) and (Map[X, Y-1] = 0) Then MapM[X, Y-1] := I;
                   If (X <n)
and (MapM[X+1, Y] = 0) and (Map[X+1, Y] = 0) Then MapM[X+1, Y] := I;
                   If (X >1)
and (MapM[X-1, Y] = 0) and (Map[X-1, Y] = 0) Then  MapM[X-1, Y] := I;
                  End;
        
     Until MapM[XE, YE] >0;
     Moves := I - 1;
     X := XE;
     Y := YE;
     I := Moves;
     Repeat
           Next(X, Y);
           I := I - 1;
     Until (X = XS) and (Y = YS);
     writeln ('Количество шагов',moves);
          for y:=1 to n do
      begin for x:=1 to m do write(MapM[x,y],' ');
            writeln;
      end;
End.

const
  max = 100;
 
var
  n, m : Integer;
  d : array [1..max, 1..max] of Integer;
  
procedure DrawD;
var
  row, col, x, l : Integer;
begin
  x := 0; for row := 1 to n do for col := 1 to m do if d[row,col] > x then x := d[row,col];
  l := 1; repeat x := x div 10; inc(l); until x = 0;
  for row := 1 to n do begin for col := 1 to m do Write(d[row,col]:l); WriteLn; end;
end;
 
type
  tPath = ^rPath;
  rPath = record
    r, c, s : Integer;
    x, p : tPath;
  end;
 
procedure FindPath;
 
var
  first, last, cur, tmp : tPath;
  path : String;
 
  function noCicle(cur : tPath; r, c : Integer) : Boolean;
  begin
    while cur^.p <> nil do
      begin
        cur := cur^.p;
        if (cur^.r = r) and (cur^.c = c) then
          begin
            noCicle := False;
            Exit;
          end;
      end;
    noCicle := True;
  end;
 
begin
  New(first); first^.r := 1; first^.c := 1; first^.s := d[1,1]; first^.p := nil; first^.x := nil;
  last := first;
  cur := first;
  { поиск всех вариантов путей }
  repeat
    if (cur^.r < n) and noCicle(cur, cur^.r + 1, cur^.c) then begin new(last^.x); last := last^.x; last^.r := cur^.r + 1; last^.c := cur^.c; last^.s := cur^.s + d[last^.r, last^.c]; last^.x := nil; last^.p := cur; end;
    if (cur^.r > 1) and noCicle(cur, cur^.r - 1, cur^.c) then begin new(last^.x); last := last^.x; last^.r := cur^.r - 1; last^.c := cur^.c; last^.s := cur^.s + d[last^.r, last^.c]; last^.x := nil; last^.p := cur; end;
    if (cur^.c < m) and noCicle(cur, cur^.r, cur^.c + 1) then begin new(last^.x); last := last^.x; last^.r := cur^.r; last^.c := cur^.c + 1; last^.s := cur^.s + d[last^.r, last^.c]; last^.x := nil; last^.p := cur; end;
    if (cur^.c > 1) and noCicle(cur, cur^.r, cur^.c - 1) then begin new(last^.x); last := last^.x; last^.r := cur^.r; last^.c := cur^.c - 1; last^.s := cur^.s + d[last^.r, last^.c]; last^.x := nil; last^.p := cur; end;
    cur := cur^.x;
  until cur = nil;
  { выбор наиболее легкого по весу, который достиг конец пути }
  tmp := first;
  repeat
    if (tmp^.r = n) and (tmp^.c = m) then
      if cur = nil then
        cur := tmp
      else if cur^.s > tmp^.s then
        cur := tmp;
    tmp := tmp^.x;
  until tmp = nil;
  { вывод пути }
  path := '';
  repeat
    path := '[' + IntToStr(cur^.r) + ',' + IntToStr(cur^.c) + ']' + IntToStr(cur^.s) + path;
    cur := cur^.p;
  until cur = nil;
  WriteLn(path);
end;
 
var r,c : Integer;  
begin
  Read(n,m);
  for r := 1 to n do for c := 1 to m do Read(d[r,c]);
  {DrawD;}
  FindPath;
  {WriteLn('The End.');}
end.