на строке 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.

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

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

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