Помогите с задачкой
Вводить числа с клавиатуры пока их не станет больше пяти и не попадётся число 100

Вот написал но что то ошибку пишет
Program x3;
VAR
integer:x,i;
Begin
i:=0;
while( i>=5) and (x=100) do
begin
readln(x);
inc(i);
end;
end.

В чем ошибка подскажите плз