почему эта программа не считает количество букв?

[WitaliG]

Подскажите, пожалуйста, почему эта программа не считает количество букв?
Напиши программу подсчета букв А во введенной строке.

var i,k : integer; S : string; C : char;
begin
        writeln('Введи строку:'); readln(S);
        k := 0;
        for i := 1 to Length(S) do begin
        if S[i] ='A' then k := k + 1;  end;
        writeln('Количество букв À = ',k);
        readln
end.

С уважением Виталий.

[Niro]

Не знаю, всё правельно - должна считать
Может вы просто не вводите в строку букву А, и какая это у вас буква - латинская али русская, программа посчитает их разными, и кстати учитывайте регистр буквы (размер)

[Риндера]

Копи-паст в консольное приложение делфи 7 - работает отлично, только текст из writeln кракозябрами.
(Вводила буквы капсом, поэтому Niro, возможно, прав)

[WitaliG]

Спасибо, поблема оказалась в том, что в коде была латинская А, а строка была из русских букв.