CREATE PROCEDURE proc_p (ID integer)
RETURNS(FIO varchar(90), contacts varchar(600))
AS
DECLARE VARIABLE fam varchar(30);
DECLARE VARIABLE imi varchar (30);
DECLARE VARIABLE otch varchar (30);
DECLARE VARIABLE novi_kont varchar (45);
DECLARE VARIABLE nast_tip smallint;
DECLARE VARIABLE pred_tip smallint;
DECLARE VARIABLE separ varchar (1);
BEGIN
  SELECT familia from people p inner join fam_spr f on p.familia=f.ID_fam where :ID=p.ID into fam;
  SELECT imia from people p inner join im_spr i on p.imia=i.ID_im where :ID=p.ID into imi;
  SELECT otchestvo from people p inner join otch_spr o on p.otchestvo=o.ID_otch where :ID=p.ID into otch;
  FIO=fam||' '||imi||' '||otch;
  contacts='';
SUSPEND;

FOR 
SELECT a.contact,a.types1 from contacts a inner join kontact_people k_p on a.ID_kont=k_p.ID_cont
WHERE :ID=k_p.ID_peopl into novi_kont, nast_tip
DO
BEGIN
  IF (nast_tip!=:pred_tip) THEN
  separ=';';
ELSE
  separ=',';
IF (contacts <> '') THEN
contacts=contacts||separ||novi_kont;
ELSE
  contacts=novi_kont;
  pred_tip=:nast_tip;
SUSPEND;
END
END;