Crystal Report - Ayuda con estructura

Hola a todos

En un reporte necesito tomar partes de 3 ccampos tipo cadena.
EL problema esta en el campo del Apeelido Paterno ya que a partir de la 2a. posicion debo tomar la primera vocal, el codigo que aparece abajo se va sempre a la ultima posicion del contenido del campo.
Pot favor in
Desde ya agradecezco la atencion prestada al presenmte

NumberVar x;
NumberVar t := Length({Clientes.Paterno});
StringVar vocal;

for x := 2 to t do
vocal:=UPPERCASE(MID({Clientes.Paterno},x,1));
IF vocal="I" or vocal="E" or vocal="A" or vocal="O" or vocal="U" Then
t := Length({Clientes.Paterno});
vocal;

en lo que estas haciendo, hay un error segun veo

for x := 2 to t do
vocal:=UPPERCASE(MID({Clientes.Paterno},x,1));
IF vocal="I" or vocal="E" or vocal="A" or vocal="O" or vocal="U" Then

------esto ho nace nada
t := Length({Clientes.Paterno});

------deberias cambiarlo por esto, para que se salga del for
x := Length({Clientes.Paterno});

vocal;