Введите с клавиатуры число х.определите, является ли данное число дробным. пример ввода: 3.5 пример вывода: число дробное

Var s:string; i,k:integer;
Begin
 readln(s);
 i:=1;
 while (s[i]<>'.')and(i<>length(s)) do
   i:=i+1;
 delete(s,1,i);
 k:=0;
 for i:=1 to length(s) do
   if s[i]<>'0' then k:=1;
 if k=0 then writeln('Число целое')
  else writeln('Число дробное');
End.