Вылазает ошибка. Почему что не так?

[xakkkkker]

Посмотрите вот код программы когда запускаю вылазает ошибка 39 Почему.

For i:= 1 to Length(VES_TEXT) do
        begin
        s:= VES_TEXT[i]; 
	case s  of  // ошибка вот здесь
	 '0': mas[0]:=mas[0]+1;
	 '1': mas[1]:=mas[1]+1;
	 '2': mas[2]:=mas[2]+1;
	 '3': mas[3]:=mas[3]+1;
	 '4': mas[4]:=mas[4]+1;
	 '5': mas[5]:=mas[5]+1;
	 '6': mas[6]:=mas[6]+1;
	 '7': mas[7]:=mas[7]+1;
	 '8': mas[8]:=mas[8]+1;
	 '9': mas[9]:=mas[9]+1;
         end;
	end;

[Alex Cones]

Попробуйте кейсить не s, а ord(s).

[xakkkkker]

Сообщение от Alex Cones

Попробуйте кейсить не s, а ord(s).

все равно та же ошибка

[Grag]

Как ты в программе объявляешь переменную s??? S должна быть перечисляемого типа.

[ОДИНОЧЕСТВО В СЕТИ]

For i:= 1 to Length(VES_TEXT) do
if VES_TEXT[i] in ['0'..'9'] then
begin
val(VES_TEXT[i],k,e);
inc(mas[k]);
end;

а так не короче?

[xakkkkker]

Сообщение от Grag

Как ты в программе объявляешь переменную s???

Перменная S:string;

[Alex Cones]

S:Char

!!!........

[xakkkkker]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

For i:= 1 to Length(VES_TEXT) do
if VES_TEXT[i] in ['0'..'9'] then
begin
val(VES_TEXT[i],k,e);
inc(mas[k]);
end;

а так не короче?

Спасибо получилось