Problema con stored procedure

[lpmlpm]

intentalo asi:

Código SQL [-]
 create procedure max_dpto
  returns (id_dpto integer)
as
  declare variable codigo integer;
begin
 select max(id_dpto) from dpto into :codigo; --aqui si lleva punto y coma
 if (:codigo is null) then
 begin
  id_dpto = 0;
 end
 else
 begin
  id_dpto = codigo + 1;
 end --aqui no lleva punto y coma
end --ni aqui tampoco