SoloCodigo

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.