Количество букв в написаном пользователем предложении - Free Pascal

Формулировка задачи:

Помогите пожалуйста , не выходит модуль на подсчет букв у написаному предложении .(Могут быть введены и числа) Есть наброски :

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
    i, l, c: integer;
begin
s := StrToInt(Edit1.Text);
 l := length(s); c := 0;
for i := 1 to l do
  if s[i] in ['A'..'Z'] or (s[i] in ['a'..'z']) or (s[i] in ['А'..'п']) or (s[i] in ['р'..'ё']) or (s[i] in ['1'..'9']) or (s[i] in ['0']) then inc(c);
writeln(c);
readln;
 Edit3.Text:=IntToStr(c);
end;

Решение задачи: «Количество букв в написаном пользователем предложении»

Листинг программы

  s := Edit1.Text; c := 0;
  for i := 1 to Length(s) do
    if s[i] in ['A'..'Z','a'..'z','А'..'п','р'..'я','Ё','ё','0'..'9'] then Inc(c);
  Edit3.Text := IntToStr(c);

Объяснение кода листинга программы

В этом коде:

Переменная s получает значение текста из текстового поля Edit1.
Переменная c инициализируется значением 0 и используется для подсчета количества символов.
Происходит цикл от 1 до длины строки s.
Если текущий символ s[i] является буквой (в любом регистре) или цифрой, то переменная c увеличивается на 1.
После завершения цикла, в текстовое поле Edit3 записывается строка, представляющая собой количество найденных символов.