Вывести имя и количество букв в третьем слове - PascalABC.NET

Формулировка задачи:

Здравствуйте, помогите составить программы по следующим условиям: 1.Вывести имя и количество букв в третьем слове; 2.Определить сколько букв «а» есть в фамилии;

Решение задачи: «Вывести имя и количество букв в третьем слове»

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

var s:string; k,kol,i:integer;
begin
k:=0;
readln(s);
For i:= 1 to pos(' ',s) do
begin
if (pos('а',s)=1) or (pos('А',s)=1) then k:=k+1;
delete(s,1,1);
end;
delete(s,1,pos(' ',s));
kol:=length(s);
writeln(k);
writeln(kol);
end.

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

В этом коде используется язык программирования PascalABC.Net. Вот список действий, которые выполняются в этом коде:

Переменная s инициализируется строковым типом данных.
Переменные k, kol и i инициализируются целочисленным типом данных.
Ввод строки с помощью функции readln(s).
В цикле For i:= 1 to pos(' ',s) проверяется каждое слово в строке s.
Если слово начинается с а или А, то переменная k увеличивается на 1.
После цикла For удаляется первое пробельное пространство из строки s с помощью функции delete(s,1,1).
Затем удаляется последний пробел из строки s с помощью функции delete(s,1,pos(' ',s)).
Длина строки s сохраняется в переменной kol с помощью функции length(s).
Значение переменной k выводится на экран с помощью функции writeln(k).
Значение переменной kol выводится на экран с помощью функции writeln(kol). Этот код предназначен для подсчета количества слов, начинающихся с а или А в заданной строке, а также длины третьего слова в этой строке.