SoloCodigo

Hola estoy necesitando ayuda necesito los codigos fuentes para hacer un programa en pascal. que sirva para validar las direcciones de correo electronico. ya sea el pseudocodigo o el codigo fuente es urguente agradezco quien me ayude es muy importante cualkier duda contactarse conmigo. desde ya muchas gracias
Lisandro.

arme este codigo para verificar direcciones de corre electronico me gustaria optimizarlo me pueden ayudar y kiero arreglarle si hay fallas.
el programa en consiste en validar direcciones de mail me gustaria ke me falta ke analize el dominio si es valido o no
si alguien me ayuda se lo agradeceria

Program validarmail(input, output);
var
   largo,pos,z:integer;
   aux, mail: string[40];
begin
      clrscr;
      writeln('Ingrese su e-Mail: ');
      repeat
         readln(aux);
         largo:=length(aux);
         pos:=1;
         z:=0;
         repeat
            z:=z+1;
            aux[z]:=upcase(aux[z]);
            if (ord(aux[z])<65) or (ord(aux[z])>90) then

               begin
                  if (ord(aux[z])<48) or (ord(aux[z])>57) then
         begin
    if (ord(aux[z])<>64) and (ord(aux[z])<>46) and (ord(aux[z])<>95) then
                          pos:=0;
       end;
               end;
         until (pos=0) or (z=largo);
         if pos=0 then
      begin
              writeln('El dato ingresado es incorrecto, ingrese otro por favor');
     end;

      begin
     writeln('El dato se ingreso correctamente');
 mail:=aux;
    end;
      until (pos<>0);
end.