** строке if выдаёт ошибку: ожидался порядковый тип Program gr; var s: string;gr1,...

Question

На строке if выдаёт ошибку: ожидался порядковый тип

Program gr;
var s: string;gr1, i:integer;
begin
readln(s);gr1:=0;i:=1;
if s[i] in ['1'..'10'] then
begin
gr1:=gr+1;
i:=i+1;
end;
end.

Comments

что должна сделать эта программа?

---

s[i] хранит только один символ.Если нужно посчитать цифры в строке то: if s[i] in ['0'..'9'] then

Answer 1

'10' - это не символ, а строка, поэтому и ругается.

А еще будет ругаться на gr1:=gr+1; - тут gr не описано.

Да и вывода результатов нет.