Помогите с программой на pascal. Использовать while. Я в 9-ом классе!

var a,k:integer;begink:=0;readln(a);while a<>0 do begin k:=k+1; readln(a); end;writeln('k = ',k);end.Пример:2 8 5 7 0k = 4

while a<>0 do begin k:=k+1; readln(a); end;writeln('k = ',k);end.Пример:2 8 6 7 0 k = 4