SELECT 0
CREATE CURSOR CTEST (NAM C(20))
INSERT INTO CTEST VALUES ('ВАСЯ')
INSERT INTO CTEST VALUES ('Петя')
INSERT INTO CTEST VALUES ('Виктор')
INSERT INTO CTEST VALUES ('Вася')
INSERT INTO CTEST VALUES ('ПЕТЯ')
INSERT INTO CTEST VALUES ('ДиМА')
INSERT INTO CTEST VALUES ('СЕРГЕЙ')
INSERT INTO CTEST VALUES ('пАША')

SELECT NZ FROM (SELECT RECNO() NZ FROM CTEST) C1 WHERE NZ NOT IN ;
( SELECT MIN(NZ) MNZ FROM (SELECT RECNO() NZ,UPPER(CTEST.NAM) NAM FROM CTEST) C2  GROUP BY NAM ) INTO CURSOR CKR
SELECT CKR
SCAN
	DELETE FROM CTEST WHERE RECNO('CTEST') = CKR.NZ
ENDSCAN
SELECT CTEST
BROW