Помогите пожалуйста решить следующую проблему
средствами Fox Pro 2.6.

У меня имеется таблица (скажем, spis-fed.dbf).

Мне необходимо найти в ней все записи,
которые дублируются по трем полям и удалить все дубли.
При этом дубли могут встретиться не друг за другом,
а "на протяжении" всего файла.
Например:
Иванов Иван Иванович 40
Петров Петр Петрович 50
Иванов Иван Иванович 80.

У меня есть prg-шник, который удаляет дубли,
идущие друг за другом.

Код:
**********************************************************
** ПОИСК ЗАПИСЕЙ-ДУБЛЕЙ В ФАЙЛЕ
set talk on
set date to german

im_f="spis-fed.dbf"

define window file_name from 4,23 to 10,55 color W/B
activate window file_name
@ 0,3 say "УДАЛЕНИЕ ДУБЛЕЙ"
@ 2,5 say "Введите имя файла"
@ 4,7 get im_f
read
release window file_name

use sys(2003)+"\"+im_f
goto top
count1=0
do while .not. eof()
store recno() to rec1
goto rec1
f1=eval(field(2)) && ПО ФАМИЛИИ ! ПЕРВАЯ ЗАПИСЬ
i1=eval(field(3)) && ПО ИМЕНИ !
o1=eval(field(4)) && ПО ОТЧЕСТВУ !

skip
rec2=rec1+1
f2=eval(field(2)) && ПО ФАМИЛИИ ! ВТОРАЯ ЗАПИСЬ
i2=eval(field(3)) && ПО ИМЕНИ !
o2=eval(field(4)) && ПО ОТЧЕСТВУ !

* СРАВНИВАЕМ ЗАПИСИ ПО ПОЛЯМ:
if f1=f2 .and. i1=i2 .and. o1=o2
delete record rec2 && удаляем вторую запись-дубль
count1=count1+1
endif
**
enddo
pack
WAIT WINDOW 'ВСЕГО УДАЛЕНО '+alltrim(str(count1))+' ДУБЛЕЙ'
release all
close all
quit
**********************************************************

Как сделать двойной цикл, чтобы
первая запись по порядку сравнивалась со всеми остальными и
они удалялись, затем вторая и т.д. ло конца файла?
Спасибо.