Задача на символьный тип Опции

[SOKOLx]

Здраствуйте)
задача очень простая:
Написать программу, определяющую количество цифр во введенной с клавиатуры последовательности символов.
У меня он сравнивает только 1 символ введеный с клавиатуры, а как сделать чтобы он сравнивал все что я ввел?) Задачу обязательно делать через char...
вообщем вот я как сделал :

program one;
uses crt;
var
s:char;
i:integer;
begin
clrscr;
writeln ('Введите символы');
readln (s);
I:=0;
if  (ord(s)>=48)and(ord(s)<=57) then I:=I+1;
writeln ('Количество цифр=',I);
readln;
end.

Сообщение отредактировано: SOKOLx - 11.12.2007 22:07