Pascal/Turbo Pascal - obligar a email llevar @ y ".com"

Hola. Quiero hacer un formulario, entrando el email. Y quiero que me obligue a poner "@" y ".com o .es". Si no lo pongo bien que me diga que hay un error.




procedure comprobaremail;
(me falta este procedure, sin utilizar los valores por teclado [8..#57,#65..#90,#97..#122,#164,#165])

{A ver este es tu programa con correcciones necesarias para detección de entradas del
email}

program paswor;
uses
crt;

var
emal : string[40];
n, t : integer;
ok1, ok2, ok : boolean;
da1 : char;
da2 : string[3];

procedure entrada;
begin
writeln('**** Entrada Contraseña ****');
writeln;
gotoxy(2,5);write('Entre Email : ');
gotoxy(16,5);readln(emal);
ok1 := false;
ok2 := false;
ok := false;
da1 := ' ';
da2 := ' ';
for n := 1 to length(emal) do
if emal[n] = '@' then
begin
da1 := emal[n];
ok1 := true;
end;
for t := 1 to length(emal) do
if emal[t] = '.' then
begin
da2 := copy(emal,t + 1,3);
for n := 1 to length(da2) do
da2[n] := upcase(da2[n]);
end;
if (da2 = 'COM') or (da2 = 'ES') then
ok2 := true;
if (ok1 = true) and (ok2 = true) then
begin
ok := true;
clrscr;
writeln(' Entrada Email [OK]');
end
else
begin
clrscr;
writeln('Error en la Entrada ');
entrada;
end;
end;


{procedure comprobaremail;
(me falta este procedure, sin utilizar los valores por teclado [8..#57,#65..#90,#97..#122,#164,#165])
}
begin
clrscr;
entrada;
{ clrscr;
comprobaremail;}
readln;
end.