* Делаю выборку минимальных кодов фамилий с подсчетом общего количества
* записей по каждой фамилии
select fio, cast(min(kod) as V( 254 )) as kodList, count(*) as kol ;
from MyTab ;
into cursor curResult nofilter readwrite ;
group by fio

* Сканирую те фамилии, количество записей которых больше  1 
select curResult
scan for kol >  1 
	* Отбираю все коды по текущей фамилии
	select kod from MyTab ;
	into cursor curList ;
	where fio == curResult.fio ;
	order by kod

	* И записываю эти коды в итоговую таблицу
	select curList
	* Пропускаем первую запись, поскольку она уже записана
	go  2 
	scan rest
		replace kodList with kodList + " "+ Alltrim(curList.kod)
	endscan
endscan

* Отображение результата
select curResult 
browse nowait