В Паскале символьный тип

[Katya_keke]

Сделать программу в паскале

С клавиатуры по одному символу вводятся Ваши фамилия, имя, отчество, указанные через пробел. Признаком конца ввода является символ «точка».
Определить:
1) количество символов в этой строке;
2) количество символов «а»;
3) количество символов, совпадающих с первой буквой Вашей фамилии.

Замечание.
Для п. 3 учесть, что это могут быть буквы как строчные, так и заглавные. Например, Петров Петр Прокофьевич, Иванова Марина Ивановна.

Вроде то но вроде нет
в чем ошибка?
var
nf, na, n: integer;
ch: char;

begin
n := 0;
na := 0;
nf := 0;
repeat
readln(ch);
inc(n);
if ch = 'а' then
inc(na);
if (ch = 'Ш') or (ch = 'ш') then
inc(nf);
until ch = '.';
dec(n);
writeln('Количество символов в этой строке: ', n);
writeln('Количество символов «а»: ', na);
writeln('Количество символов, совпадающих с первой буквой Вашей фамилии: ', nf);
end.

[Serge_Bliznykov]

замените ReadLn(ch) на Read(ch)