Вывести имя и количество букв в фамилии - Pascal ABC

вести фамилию ,имя и отчество как одно даное строкового типа.Определить длину строки и количество букв ''а''

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

readln(s);
writeln(Length(s));
k:=0;
for i:=1 to length(s) do
 if s[i]='а' then
  inc(k);
writeln(k);

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

Строка кода readln(s); считывает введённую пользователем строку и сохраняет её в переменной s.
Строка writeln(Length(s)); выводит длину строки s с помощью функции Length().
Строка k:=0; инициализирует переменную k значением 0.
Строка for i:=1 to length(s) do является циклом for, который выполняется столько раз, сколько символов в строке s.
Внутри цикла, условие if s[i]='а' проверяет, является ли текущий символ в строке s буквой 'а'. Если это так, то значение переменной k увеличивается на 1 с помощью функции inc().
После выполнения цикла, значение переменной k выводится с помощью строки writeln(k);.
Код не использует вложенные списки.