[ Foro de Pascal ]
uses
System.SysUtils;
const
vocales:set of char=['A','E','I','O','U'];
var
i:integer;
cad:string;
begin
writeln('Ingrese una cadena: ');
readln(cad);
for i := 1 to length(cad) do
begin
if UpperCase(cad[i])in vocales then
begin
cad[i]:=' ';
end;
end;
writeln(cad);
readln;
end.
Da más detalles. Qué debería hacer y qué no funciona? Qué Compilador usas y para qué sistema operativo?
(No se puede continuar esta discusión porque tiene más de dos meses de antigüedad. Si tienes dudas parecidas, abre un nuevo hilo.)