Написать программу, которая проверяет, является ли введенная с клавиатуры строка дробным числом. На Паскале

// Программа на паскале
var
  s: string;
  k, i: integer;
begin
  readln(s);
  k := pos(,, s);
  if (k   else
  begin
    for i := 1 to length(s) do
      if (i k) and ((s[i] 9)) then
      begin
        writeln(No);
        exit
      end;
    writeln(Yes);
  end;
end.

Примеры работы программы:
Ввод   Вывод
1,6          Yes
123,        No
,49          No
0,758     Yes