Паскаль,строковые переменные.

[Amenus]

Здравствуйте.Нужно решить вот такую вот задачку.
Проверить, является ли строка символов записью вещественного числа, возможно со знаком.
Помогите пожалуйста,завтра последний срок сдачи((((
Некоторые мысли :

var s:string;
i:integer;
flag:boolean;
begin
{-10.92}
readln(s);
i:=1;
flag:=true;
if (s[i]='-') or (s[i]='+') then i:=i+1;
while s[i] in ['0'..'9'] do i:=i+1;
if s[i]='.' then i:=i+1;
for i:=i to length(s) do if not (s[i] in ['0'..'9']) then flag:=false;
writeln(flag);
readln
end.

[alex_fcsm]

var s:string;
    x:set of char;
    flag:boolean;
    i:integer;
begin
readln(s);
x:=['0'..'9','-',','];
flag:=true;
for i:=1 to length(s) do
   begin
    if (s[i]='-')  then begin
                        if (i=1)and(s[i+1] in ['0'..'9']) then x:=x-['-']
                          else flag:=false
                        end
       else
         if (s[i]=',')then begin
                        if s[i] in x then x:=x-[',']
                           else flag:=false;
                       end
        else   if not(s[i] in x) then flag:=false;
   end;
   
if flag then writeln('Yes')
   else writeln('NO');
end.

Попробуй это, будут ошибки напиши на чем не так работает

[Amenus]

Спасибо!=)

Кстати:
"Спартак" Москва - моя любовь! С тобою я пока есть в венах кровь! Тебе, "Спартак", сейчас пою, тебя я в сердце берегу!