問題文の
Func(L)
begin
  if L = [] then return 0;
  A := first(L);
  B := func(butfirst(L));
  C := max(A, B);
  print C;
  return C;
end

これのFunc(L)のFは小文字のfじゃないんでしょうか...