С клавиатуры вводятся числа, определить сумму и количество, пока не введено 98

Var a,s,k:integer; begin write('a='); readln(a); s:=0;k:=0; while a<>98 do  begin  s:=s+a; k:=k+1;  write('a='); readln(a);  end; writeln('k=',k,'  s=',s); end. Пример: a=15 a=7 a=9 a=2 a=98 k=4  s=33