проверить является ли введенная с клавиатуры строка правильной записью вещественного отрицательного числа

program Project1;
var
  str: string; // Переменная для хранения значения числа в строковом типе данных.
  x: real;  // Переменная для хранения значения введенного числа в вещественном типе данных.
  ErrCode: integer; // Вспомогательная переменная, которая хранит код ошибок при преобразовании числа из строкового типа в вещественный тип.
begin
  writeln('Введите отрицательное вещественное число:');
  repeat
    Readln(str);
    val(str,x,ErrCode);   // Преобразование записи из строкового типа в вещественный.
    if (ErrCode <> 0) then    //  Проверка на ошибку преобразования.
      writeln('Введенная запись является некорректной. Сделайте новую попытку.')
    else
      if not (x < 0) then   //   Проверка на отрицательное значение числа.
        begin
          writeln('Введенная запись является корректной, но число не является отрицательным. Сделайте новую попытку.');
          ErrCode:= 1;
        end;
  until ErrCode = 0;  // Цикл, который возвращает пользователя для ввода корректных значений.
  writeln('Введенная запись является корректной.');
  Readln;
end.