Определить, является ли заданная строка правильной записью вещественного числа

[Sergik1977]

Определить, является ли заданная строка правильной записью вещественного числа (возможно, со знаком, а также с пробелами спереди и/или сзади) .
Указание: вещественное число может быть представлено либо в виде числа с фиксированной десятичной точкой (-214.78), либо в виде числа с плавающей точкой десятичной точкой(-2.1478E+02).


Просто мне кажется что это все можно сделать намного проще, а я тут сейчас нафигарю с три короба))))))
Вот это я пытался что-то родить и мой потенциал на этом закончился:

 
var s:string;
l: set of '0'..'9';
q,i:integer;
c:char;
w:real;
begin
i:=1;
l:=['0'..'9'];
writeln('Vvedite stroku');
readln(s);
{попробуем получить одно слово}
while pos(' ',s)<>0 do delete (s,pos(' ',s),1); {удалим все пробелы если они есть}
If s[i]='+' then delete (s,pos('+',s),1); {удалим знак + если он стоит впереди числа}
If s[i]='-' then q:=-1; {присвоим переменной знак - если он есть}
{прошерстим слово и индифицируем в нем все цифры и буквы}
For i:=1 to length(s) do begin
If (s[i] in l) then writeln('sama dura'); {Ищем цифры от 0...9}
If (s[i] in ['E']) then writeln('sam durak'); {Ищем знак Е}
writeln('stroka',s);
end;
readln(s);
 
end.

[_Dmitry]

а Val(s,w,code) не пробовал, преобразует строку в число, пробелы, насколько помню не мешают преобразованию. Если code=0, то число получено.
Здесь s - строка, w - переменная, может быть real или integer, смотря что ожидаешь получить.

[Sergik1977]

Дмитрий премного благодарен, я так и знал что ларчик просто открывался. На пробелы впереди не реагирует а позади уже не видит цифру. Поэтому оставил уничтожение пробелов.


Получилось:

 
var s:string;
code:integer;
w:real;
begin
writeln('Vvedite stroku');
readln(s);
{попробуем получить одно слово}
while pos(' ',s)<>0 do delete (s,pos(' ',s),1); {удалим все пробелы если они есть}
Val(s,w,code); {Если code=0, то число получено}
If code =0 then writeln('TRUE: ',s) else writeln('FALSE: ',s);
writeln('stroka');
readln(s);
end.