Склавиатуры вводятся числа, определить сумму и количество, пока не введено 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