select id_comp id: from company 

CREATE PROCEDURE CAPTION (
    str varchar( 1024 ))
returns (
    stttrade varchar( 1024 ),
    sttinn varchar( 1024 ))
as
declare variable i bigint;
begin

  execute procedure deleteznak(:str)
  returning_values(:str);
  execute procedure editword(:str)
  returning_values(:str);

  select first  1  a.stt , a.hesh from arrayname(:str) a
  order by a.countword desc ,a.ch_len desc
  into :str , :i;

    select first  1  tradenmr ,y.tradenmnx
      from
      (
       select id_tradenm
        from
        (
         select  a.id_tradenm, a.name_hesh from tradenmHESH a
         where a.hesh = :i
        )x where name_hesh = :str
       )x join tradenm y on TRADENMNX = id_tradenm
    into :stttrade ,:i ;

  select first  1  innr from inn a join tndp b on a.innnx = b.innnx
                      where b.tradenmnx = :i
  into :sttinn;
  suspend;

end