Вводится текст. Конец ввода <F1>. Найти кол-во букв "А"

[Руся93]

Вот что написал я
program g;
uses crt;
var ch:char;
s:integer;
begin
repeat
read(ch);
if ch='a' then inc(s);
until ch<>#59;
write(s);
readkey;
end.
Программа не считает, подскажите что не так.

[Alex11223]

readkey вместо read наверно

repeat
   ch := readkey;
   if ch = 'a' then
       inc(s);
until ch = #59;

[Руся93]

Спасибо сейчас попробую)

Теперь не видно букв которые ввожу

[Stilet]

repeat
   ch := readkey;write(ch);

[Руся93]

Спасибо большое!