Цикл выполняется 4 раза, почему? Program zad2; Var c:char; i, n,

После каждого ввода с клавиатуры цикл срабатывает три раза.  После нажатия на кнопку Enter дополнительно к введенному символу автоматом вводятся и обрабатываются знаки перевода каретки и конца строчки. После подмены read(c) на readln(c) программка дозволяет ввести 10 знаков. Завершается работа программы выводом числа введенных великих латинских букв.  

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

write (i= , i);

writeln( Code (n)).

На рисунке http://bit.ly/2GbulpP показан итог ввода знаков A, a, B, b.