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

Program asd;
USES crt;
var a,b,s:real;
BEGIN
Repeat
Writeln(Введите отр. число, пока не будет введено, буду долбать! Я жду!  );
Readln(a);
until a<0;
If a<0 then Writeln(Так бы сразу, молодец :) );
END.

Вот так :)

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.