Рекурсия: Найти путь от элемента первой строки матрицы до элемента последней с максимальной суммой

Function factorial(N: integer) : longint; 
Begin 
   If N= 0 then 
   Factorial := 1 
   Else Factorial := factorial(N-1) * N 
End;

program l11_27_l2;
uses
 crt;
type
 matrix = array[1..10,1..10] of real;
var 
  a:matrix;
  n:byte;
 
procedure read_matrix(fn:string; var a:matrix; var n:byte);
var 
 f:text;
 i,j:byte;
begin
 assign(f,'input.txt');
 reset(f);
 readln(f,n);
 for i:=1 to n do
  for j:=1 to n do
   read(f,a[i,j]);
 close(f);
end;
 
procedure obxod (var a:matrix; n:byte);
var
 i,j:integer;
begin
 for i:=1 to n do
 
 
end;
 
 
 begin
 
 end.

var
   a:array[1..100,1..100] of integer;
   i,j,n,m,sum:integer;
 
procedure recurs(i,j:byte; s:integer);
begin
   if j<=m then
   begin
      if i<>1 then recurs(i-1,j+1,s+a[i,j]);
      if i<>n then recurs(i+1,j+1,s+a[i,j]);
      recurs(i,j+1,s+a[i,j]);
   end
   else
      if s>sum then sum:=s;
end;
 
begin
   assign(output,'output.txt');
   rewrite(output);
   assign(input,'input.txt');
   reset(input);
   readln(n,m);
   for j:=1 to m do
   begin
      for i:=1 to n do
         read(a[i,j]);
      readln;
   end;
   for i:=1 to n do
      recurs(i,1,0);
   write(sum);
end.