Программирование на языке Паскаль. Заставить пользователя ввести отрицательное число

Программирование на языке Паскаль. Заставить пользователя ввести отрицательное число. Помогите пожалуйста:)

  • Program asd;USES crt;var a,b,s:real;BEGINRepeatWriteln(‘Введите отр. число, пока не будет введено, буду долбать! Я жду!  ‘);Readln(a);until a