Склавиатуры вводится числа и находится произведение до тех пор пока произведение чисел не превысит 10 000. посчитайте количество введенных чисел и полученное произведение. . !

Что-то такое получилось, пиши в комменты если что не так:
var  
 a,b,k:longint; 
begin  
 b:=1; 
 k:=0;  
 while b<10000 do  
 begin    
  read(a);    
  b:=b*a;    
  k:=k+1;  
 end;  
 writeln('Kol:',k);  
 writeln('Number:',b);  
 readln 
end.