ctid

estoy creando la siguiente funcion,pero entonces este me carga estos ctid
(12,5)
(12,6)

necesito hacer un delete del (12,6) entonces eso de diferente no me sirve
por que apenas estoy cargando los ctid,como mas puedo hacer.
create or replace function eliminar_ubiprograma_repetidos()
as
$body$
declare
var_dir numeric;
var_prg numeric;
cur_ubiprg refcursor;
begin
OPEN cur_ubiprg for select dir_codigo,prg_codigo,count(*) from
ubicacion_programa group by dir_codigo,prg_codigo having count(*)>1
LOOP
fetch cur_ubiprg into var_dir,var_prg;
select ctid from ubicacion_programa where prg_codigo=var_dir and
dir_codigo=var_prg

--
Ing Sistemas y Telecomunicaciones
Luis Felipe Lopez Amezquita
3008217523 - 3162589699