Pascal/Turbo Pascal - letras repetidas

hola manuel ...
hola Dani , perdon por haberme adelantado , pero yo ya estaba trabajando en
el code y no quiero echar a perder .

De todas formas si DANI tiene otra solucion , mejor que mejor.

ahi va el code .
______________________________
uses crt;
var
cadena , resultado:String;
cad_tmp:string; // a¤adido
ultimo_car:char; // a¤adido
y:byte;
begin
clrscr;
y:=1;
cadena:=' era de cooolor cccclaro yyyy un aaazul brrrrillaaaante ';

ultimo_car:=#32;
cad_tmp:='';
for y:=1 to length(cadena) do
begin
// si no hay repeticion entonces
if (ultimo_car<>cadena[y]) then
// se a¤ade un caracter a la cadena temporal
cad_tmp:=cad_tmp+cadena[y]
else
// hay repeticion ,incluir solo si no son los caracteres c y a r
if
(cadena[y] <> 'c' ) and
(cadena[y] <> 'y' ) and
(cadena[y] <> 'a' ) and
(cadena[y] <> 'r' ) then cad_tmp:=cad_tmp+cadena[y];

ultimo_car:=cadena[y];
end;
resultado:=cad_tmp;
writeln(cadena);
writeln(resultado);
// cOOOlor no ha sido modificado pues 'o' no pertenece   "c","y","a","r"

readln;
END.

hola manuel :

lo entendi alreves , cambia el code siguiente:
en el caso del programa solo quita los caracteres c y a r

// hay repeticion ,incluir solo si no son los caracteres c y a r
if
(cadena[y] <> 'c' ) and
(cadena[y] <> 'y' ) and
(cadena[y] <> 'a' ) and
(cadena[y] <> 'r' ) then cad_tmp:=cad_tmp+cadena[y];

Debes amoldar el programa o asignar otra lógica , no se trata de que te hiciera el programa , si no de que lo entendieras , ahora mismo ya estoy con otras cosas y no puedo ayudarte , para la proxima vez ¡¡¡ especifica !!!, pues yo entendi lo contrario.
mejor aun espera por si DANI te puede echar una mano.

SALUDOS de micropais.

ahi va , se pueden repetir almenos una vez , no esta contemplado el caso de que si hay tres erres te quite una (por si acaso)....
he usado las mismas letras que antes, ajustalas a R C I , si te sobra una linea quitala. te marqué la linea con un comentario , nota que cambie AND por OR.
// -> !!!!!!!!!!!!!!!!!!!!!!!!!!!! desde aqui

________________________________________________________

uses crt;
var
cadena , resultado:String;
cad_tmp:string; // a¤adido
ultimo_car:char; // a¤adido
y:byte;
begin
clrscr;
y:=1;
cadena:=' erre que te errre la CCCC y la III cooolor cuuualquier otra cosa ';

ultimo_car:=#32;
cad_tmp:='';
for y:=1 to length(cadena) do
begin
// si no hay repeticion entonces
if (ultimo_car<>cadena[y]) then
// se a¤ade un caracter a la cadena temporal
cad_tmp:=cad_tmp+cadena[y]
else
// -> !!!!!!!!!!!!!!!!!!!!!!!!!!!! desde aqui
// hay repeticion ,incluir solo si no son los caracteres c y a r
if
(cadena[y] = 'c' ) or
(cadena[y] = 'y' ) or
(cadena[y] = 'a' ) or
(cadena[y] = 'r' ) then cad_tmp:=cad_tmp+cadena[y];

ultimo_car:=cadena[y];
end;
resultado:=cad_tmp;
writeln(cadena);
writeln(resultado);
// cOOOlor no ha sido modificado pues 'o' no pertenece   "c","y","a","r"

readln;
END.