SELECT  0 
CREATE CURSOR EKZ (ID_ABI I( 4 ),FAK C( 60 ),DISCI C( 60 ))
INSERT INTO EKZ (ID_ABI,FAK,DISCI) VALUES ( 111  ,'филологический' ,'русский язык')
INSERT INTO EKZ (ID_ABI,FAK,DISCI) VALUES ( 111 ,'филологический','литература')
INSERT INTO EKZ (ID_ABI,FAK,DISCI) VALUES ( 111  ,'исторический' ,'история')
INSERT INTO EKZ (ID_ABI,FAK,DISCI) VALUES ( 111 ,'исторический' ,'обществознание')
SELECT  0 
CREATE CURSOR ITOG (ID_ABI I( 4 ),FAK C( 60 ),DISCI C( 250 ))

IDS= 0 
FAKS=SPACE( 60 )
NAKOP=''
SELECT * FROM EKZ ORDER BY  1 , 2  INTO CURSOR C1
SELECT C1
SCAN
	IF IDS> 0  AND NOT (C1.ID_ABI = IDS AND C1.FAK = FAKS)
		INSERT INTO ITOG (ID_ABI,FAK,DISCI) VALUES (IDS,FAKS,NAKOP)
		NAKOP=''
	ENDIF
	NAKOP=NAKOP+IIF(EMPTY(NAKOP),'','/')+RTRIM(C1.DISCI)	
	IDS=C1.ID_ABI
	FAKS=C1.FAK 
ENDSCAN
INSERT INTO ITOG (ID_ABI,FAK,DISCI) VALUES (IDS,FAKS,NAKOP)

SELECT ITOG
BROW