Выведите одно целое число — максимальное число, которое могло получиться в протоколе при игре на данном поле

Type tAr = array[1..3,1..3] of Byte;
Var          { 987456321 987236145 897236145 987236145 }
  m   : tAr := ((1,2,3),
                (4,5,6),
                (7,8,9)); 
             { ((1,6,3),
                (4,7,2),
                (5,8,9)); }
             { ((1,6,3),
                (4,7,2),
                (5,9,8)); }
             { ((1,6,3),
                (4,9,2),
                (5,8,7)); }
  i,j,k,n : Byte;
 
Function MaxSt(s1,s2 : String) : String;
Begin
  If Length(s1)=Length(s2) then
    If s1>s2 then MaxSt:=s1 else MaxSt:=s2
  else
    If Length(s1)>Length(s2) then MaxSt:=s1 else MaxSt:=s2;
end;
 
Function Path(x,y : Integer; mm : tAr) : String;
Var b    : Char;
Begin
  If (x in [1..3]) and (y in [1..3]) and (mm[x,y]>0) then
  Begin
    b:=Chr(Ord('0')+mm[x,y]);
    mm[x,y]:=0;
    Path:=b+MaxSt(MaxSt(Path(x-1,y,mm),Path(x+1,y,mm)),MaxSt(Path(x,y-1,mm),Path(x,y+1,mm)));
  end
  else Path:='';
end;
 
Begin
  k:=1; n:=1;
  For i:=1 to 3 do
   For j:=1 to 3 do
     If (m[i,j]>m[k,n]) and (not ((i+j) in [3,5])) then
     Begin
       k:=i; n:=j;
     end;
  Writeln(Path(k,n,m));
end.

m   : tAr := ((1,2,3),
                (4,5,6),
                (7,8,9));

  m   : tAr = ((1,2,3),

const          { 987456321 987236145 897236145 987236145 }
  m   : tAr := ((1,2,3),
                (4,5,6),
                (7,8,9)); 
             { ((1,6,3),
                (4,7,2),
                (5,8,9)); }
             { ((1,6,3),
                (4,7,2),
                (5,9,8)); }
             { ((1,6,3),
                (4,9,2),
                (5,8,7)); }
var
  i,j,k,n : Byte;