Известны данные о стоимости каждого товара из группы. найти общую стоимость трех товаров, которые стоят дороже 1000рублей (количество таких товаров неизвестно)

Var i,x,s:integer;
begin
writeln('Вводите стоимость товаров по одному');
while i<3 do
  begin
  readln(x);
  if x>1000 then
    begin
    s:=s+x;
    i:=i+1;
    end;
  end;
writeln('s=',s);
end.