Ребята, срочно помогите. ПАСКАЛЬ (((

program z_1;
var
z, y, k, x : integer;
begin
k:= 0;
z:=30000;
y:=1000;
repeat
read (x);
if (x mod 4=0) and (x mod 10=2) and (k<=y) and (x<z) then k:=k+1else
k:=k;
until x = 0;
write(k);
end.

пишет ошибка времени исполнения указывает на строку Read (x)