Определить длину строки и количество букв "а" в ней

Var
  s,nam: String;
  k,i,n,ch,kol: Integer;
BEGIN
Writeln('Введите ФИО: '); Readln(s);
Writeln('Длина строки: ',Length(s));
For i:=1 to Length(s) do
If s[i]='a' Then Inc(k);
Writeln('Кол-во букв "a" = ',k);
Write('Имя: ');
For i:=1 to Pos(' ',s) do
Inc(n);
Repeat
 Inc(n);
 nam:=nam+s[n];
until s[n]=' ';
Writeln(nam);
For i:=n to Length(s) do
If s[i]='a' Then Inc(kol);
Writeln('Кол-во букв "a" в отчестве: ',kol);
Readln
END.

uses crt;
var s, name: string;                   //две переменные - сама строка, и стока для имени
    i,ka,ko: byte;                     //переменная-счетчик, переменная для количества букв а, и для количества букв в отчестве (соответственно ka и ko)
begin
write('FIO: '); readln(s);            //запрашиваем и считываем строку
for i:=1 to length(s) do              //в цикле с параметром от первой буквы по последней (определяется с помощью функции определения длины строки)
    if (s[i]='a') or (s[i]='A')       //проверяем условие - если символ под данным номером - заглавная или прописная буква А
       then inc(ka);                  //тогда увеличиваем количество букв а на 1 (можно заменить на ka:=ka+1)
                                      //теперь будем определять количество букв в отчестве, то есть считать с конца до первого пробела
i:=length(s);                         //поэтому изначально счиетчик приобретает значение длины строки (начинаем отсчет с последней буквы)
while s[i]<>' ' do                    //и до тех пор, пока не встретим первый с конца пробел в цикле с предусловием
      begin
      inc(ko);                        //увеличиваем количество букв отчества (можно заменить на ko:=ko+1)
      dec(i);                         //и уменьшаем счетчик. то есть сдвигаемся влево по строке (i:=i-1)
      end;
name:=copy(s,pos(' ',s)+1,length(s)-ko-pos(' ',s)-1); //c именем просто - просто копируем в строку name часть исходной строки от первого пробела (там. где заканчивается фамилия и начинается имя) до начала отчества
//а так как мы уже знаем длину отчества, то не составит труда узнать длину имени: надо вычесть из общей длины количество символов до первого пробела включительно и количество символов в отчестве, и еще один символ - пробел после имени
writeln('Имя=',name);                 //выводим полученное имя
writeln('Количество букв А=',ka);           //выводим количество букв а
writeln('Количество букв в отчестве=',ko);   //выводим количество букв в отчестве
end.