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

С клавиатуры вводятся числа , пока не будет введено отрицательное число. Подсчитать количество чисел. (решение ниже)
Var
a,b: Integer;
BEGIN
While bgt;=0 do
begin
Readln(b);
Inc(a );
end;
Writeln('Кол-во введенных чисел : ',a-1);
END.
Объясните что к чему? Откуда a и b? Ведь обрабатывается сразу только 1 вводимое число, потом 2-е и т.д.