Найти маршрут, двигаясь по которому мышка соберет наибольшее количество зернышек

var 
m,n,i,j:integer;
a:array[1..100,1..100] of integer;
begin
readln(m,n);
for i:=1 to m do
for j:=1 to n do
read(a[i,j]);
 
i:=m;
j:=1;
 
While (i>1) or (j<n) do
  begin
    if (i=1) and (j<n) then begin Write('R'); j:=j+1; end
    else if (i>1) and (j=n) then begin Write('F'); i:=i-1; end
    else
      begin
        if a[i-1,j]>=a[i,j+1] then begin Write('F'); i:=i-1; end
        else begin Write('R'); j:=j+1; end;        
      end;      
  end;
end.

Var
  m,n,i,j : Byte;
  a       : array[1..100,1..100] of Integer;
  s       : String :='';
 
Function Path(r,c : Byte; Var st : String) : Integer;
Var pR,pF : Integer;
sR,sF : String;
Begin
  Path:=0;
  If (r=1) and (c=n)  then Path:=a[r,c]
  else
    Begin
      If c<n then pR:=Path(r,c+1,sR) else pR:=-1;
      If r>1 then pF:=Path(r-1,c,sF) else pF:=-1;
      If (pR>=0) and (pR>=pF) then
      Begin
        Path:=a[r,c]+pR;
        St:='R'+sR;
      end;
      If (pF>=0) and (pF>pR) then
      Begin
        Path:=a[r,c]+pF;
        St:='F'+sF;
      end;
    end;
end;
 
Begin
  m:=10; n:=10; {Readln(m,n);}
  For i:=1 to m do
   For j:=1 to n do
   Begin
     a[i,j]:=Random(10);
     Write(a[i,j]:3);
     If j=n then Writeln;
   end;
  Writeln(#13,Path(m,1,s),' '+s);
end.

program Mouse;
 
const
  Mmax = 100;
  Nmax = 100;
  Kmax = 30000;
var
  m, n: integer;
  floor: array of array of DWord; //"пол" в храме
  grain: array of array of DWord; //максимальное количество зёрен при прохождении к ячейке
  prev: array of array of char;   //в символьном виде указывает предыдущую плитку в маршруте
  WaveI, WaveJ: array of array of integer; //список ячеек для текущего и следующего прохода
  WaveL: array [0..1] of integer; //длины списков текущего и следующего проходов
  WaveN, WaveNnext: integer;      //индексы списков текущего и следующего проходов
  i, j: integer;
  ii, jj: integer;
  s: string;
begin
  Assign(input, 'mouse.in');
  reset(input);
  readln(m, n);
  SetLength(floor, m, n);
  SetLength(grain, m, n);
  SetLength(prev, m, n);
  SetLength(WaveI, 2, m + n);
  SetLength(WaveJ, 2, m + n);
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      Read(floor[i - 1, j - 1]);
      grain[i - 1, j - 1] := 0;
    end;
    readln;
  end;
  
  WaveN := 0;
  WaveL[WaveN] := 0;
  WaveI[WaveN][WaveL[WaveN]] := n - 1;
  WaveJ[WaveN][WaveL[WaveN]] := 0;
  Inc(WaveL[WaveN]);
  grain[n - 1, 0] := floor[n - 1, 0];
  prev[n - 1, 0]  := 'S';
  while WaveL[WaveN] > 0 do
  begin
    WaveNnext := (WaveN + 1) mod 2;
    WaveL[WaveNnext] := 0;
    for i := 0 to WaveL[WaveN] - 1 do
    begin
      ii := WaveI[WaveN][i];
      jj := WaveJ[WaveN][i];
      if ii < n - 1 then
      begin
        if grain[ii, jj] < grain[ii + 1, jj] + floor[ii, jj] then
        begin
          prev[ii, jj]  := 'F';
          grain[ii, jj] := grain[ii + 1, jj] + floor[ii, jj];
        end;
      end;
      if jj > 0 then
      begin
        if grain[ii, jj] < grain[ii, jj - 1] + floor[ii, jj] then
        begin
          prev[ii, jj]  := 'R';
          grain[ii, jj] := grain[ii, jj - 1] + floor[ii, jj];
        end;
      end;
      if ii > 0 then
      begin
        WaveI[WaveNnext][WaveL[WaveNnext]] := ii - 1;
        WaveJ[WaveNnext][WaveL[WaveNnext]] := jj;
        Inc(WaveL[WaveNnext]);
      end;
      if (jj < n - 1) and (ii = n - 1) then
      begin
        WaveI[WaveNnext][WaveL[WaveNnext]] := ii;
        WaveJ[WaveNnext][WaveL[WaveNnext]] := jj + 1;
        Inc(WaveL[WaveNnext]);
        grain[ii, jj + 1] := grain[ii, jj] + floor[ii, jj + 1];
        prev[ii, jj + 1]  := 'R';
      end;
    end;
    WaveN := WaveNnext;
  end;
  {восстановление пути}
  SetLength(s, n + m - 2);
  ii := 0;
  jj := n - 1;
  for i := n + m - 2 downto 1 do
  begin
    s[i] := prev[ii, jj];
    if s[i] = 'F' then
      ii := ii + 1
    else
      jj := jj - 1;
  end;
  writeln(s);
  Close(input);
end.