Прыгун сделал N прыжков. Определите среднюю дальность прыжка (вводится дальность каждого прыжка в см)

program prj1;
var k: integer;
   smm,cnt: integer;
begin
  k:=1; cnt:=0; cmm:=0;
  while read(k) do
   if k in ('0'..'9') then
   begin
    smm:=smm + k;
    Inc(cnt);
   end else break;
   writeln('Средняя дальность = ', smm / cnt);
   readln;
end.