работа со строками.паскаль

[tinton]

Напишите программу, которая проверяет, является ли введенная строка десятичным числом (допустима только одна «точка»).


нужно написать на паскале подскажите плз. заранее благодарю.

[IT-man]

var s:string;
c,z:set of char;
i:integer;
f:boolean;
begin
readln(s);
c:=['0'..'9'];
z:=['.'];
f:=true;
if s[1] in z then f:=false;
if f then begin
for i:=1 to length(s) do
begin
if  not (s[i] in c) and not (s[i] in z) then begin f:=false;break;end;
if (s[i] in z) then z:=z-[s[i]];
end;
end;
if f then writeln('Yeah')
else writeln('No');
end.