Прыгун сделал 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.