Сделать проверку ввода и допустить ввод только цифр

var x,y:real;
begin
writeln ('Введите значение x') ;
read(x) ;
begin
if x>=9 then y:=sin(x*pi/180)
else y:=(sqr(x))/(x-9)  ;
writeln ('Ответ: ',y);
end
 
 
end.

var x,y:real;
    S:STRING;
    C:INTEGER;
begin
REPEAT
  writeln (' Введите значение x=') ;
  readLN(S) ;{читаем строку}
  VAL(S,X,C);{пытаемся преобразовать ее в число, в переменную C - упадет позиция, с недопустимым символом}
  IF C<>0 THEN WRITELN('Должно быть число');
UNTIL C=0; 
{begin тут не нужен, т.к. нет начала секции}
if x>=9 then y:=sin(x*pi/180)
else y:=(sqr(x))/(x-9) ;
writeln ('Ответ: ',y);
{end тоже что и begin}
 
 
end.

var x,y:real;

var x,y:real;
    S:STRING;
    C,i,p:INTEGER;
begin
REPEAT
  writeln (' Введите значение x=') ;
  readLN(S) ;
  c:=0;p:=0;
  for i:=1 to length(s) do 
    if s[i]='.' then p:=p+1 else  
      if not((ord(s[i])-48) in [0..9]) then begin
        c:=i;
        break;
      end;
  IF (C<>0) or (p>1) THEN WRITELN('Должно быть число');
UNTIL (C=0) and (p<2); 
val(s,x,c);
if x>=9 then y:=sin(x*pi/180)
else y:=(sqr(x))/(x-9) ;
writeln ('Ответ: ',y);
end.