ejercicio

[jefferson]

un saludo a todos:

oye parsero ya tengo la condicion: bueno aun que esa es solo para verificar que este el @. pero pues de alli se basan las demas condiciones.
gracias a los que opinaron y/o ayudaron.

for i:=1 to length(email)do
begin
if email[i]='@'then
begin
arroba:=true;
break;
end;
end.

y pues podemos dar por terminado el tema. un que me queda buentrabajo por hacer aun.
bye.