Введение целых чисел с клавиатуры, программа

[Zin]

Помогите, пожалуйста, исправить программу!
Задание: Вводить с клавиатуры целые числа до тех пор, пока не будет введено число 0. На экран вывести количество введеных чисел (в программе не использовать массивы), в Pascale.

program project1;
var a:char;
      s:integer;
begin
s:=0;
repeat
writeln('Введите символ');
readln(a);
case a of
'1','2','3','4','5','6','7','8','9','0': s:=s+1;
end;
until a='0';
writeln('введено s цифр');
readln;
end.

[Zin]

она работает, но не подсчитывает сумму, помогите, пожалуйста, найти ошибку)

[Selyd]

Сумму или количество чисел. В s сейчас количество чисел.
У Вас writeln('введено s цифр'); надо разбить
текст 'введено'  число s текст 'цифр'

[Zin]

Количество чисел, спасибо за помощь)