Pascal/Turbo Pascal - COMO LE HAGO?

Program NumReal;

Var

   Num :Real;            {Número real}

   NumStr :String;     {Entrada realizada por el Usuario}

   Err :Integer;            {Número de error al convertir la cadena a número}

   Ok :Boolean;

Begin

     Repeat

           Write('Ingrese un número: ');

           ReadLn(NumStr);

           Val(NumStr, Num, Err);

           Ok := (Err=0) and (Pos('.', NumStr)>0);

           If Not Ok then WriteLn('¡¡debe ingresar un número real!!');

     Until Ok;

End.