[Подсказка] помогите пожалуйста

[ylkiora]

готовясь к ГИА по информатике, столкнулся с проблемой.
Вот задача: В компьютер вводят вес, поднятый каждым тяжелоатлетом на соревнованиях. Признаком конца ввода данных является отрицательное число. Сосчитайте число спортсменов, которые смогли поднять больше 150 кг.
задача на паскаль

у меня вышло так.
var
z,x:integer;
begin
z:= 0;
writeln('введи вес поднятый спортсменом');
readln(x);
while x>0 do
if x>= 150 then z:= z+1;
writeln('количество спортсменов удовлетворяющих условию = ',z);
readln;
end.

проблема в том, что при проверке вводится только одно значение, а потом все виснет, и можно только закрыть окно.
вопрос в том, это у меня ошибка или сам паскаль корявый?
заранее спасибо.

Добавлено через 15 часов 45 минут
ап