Из 15 символов и вывода на экран строки «да» если этот текст является правильной записью действительного числа с плавающей точкой языка Паскаль.В противном случае выводится строка «нет» — Pascal(Паскаль)

program prog1;
uses
    Crt;
var
    sNumber : string;
    dNumber : double;
    code    : integer;
begin
ClrScr;
Write('Chislo = ');
Readln(sNumber);
Write('Otvet : ');
if (Pos('.', sNumber) = 0) or (Pos('e', sNumber) = 0)
    then
        begin
        Write('нет');
        Readln;
        Exit;
        end;
Val(sNumber, dNumber, code);
if (code = 0)
    then
        Write('да')
    else
        Write('нет');
Readln;
end.