Дан текст, содержащий цифры и буквы. Определить, сколько букв в тексте. в паскаль

не определяет

Вместо букв считались цифры, сейчас исправлено.

var s:string; i,k:integer;beginwriteln('Введите текст:');readln(s);k:=0;for i:=1 to length(s) do if s[i] in ['A'..'Z','a'..'z','А'..'Я','а'..'я'] then k:=k+1;writeln('k = ',k);end.Пример:Введите текст:IP-адреса 211.115.61.154 и 211.115.59.137k = 9