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

[layl]

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

[Poma][a]

begin
         ReadLn (s); \\ читаем
          
         len := Length (s); \\ инициализируем переменную, хранящую длину строки
         WriteLn ('Длина строки = ', len); \\ вывели длину строки
          
         count := 0; \\ инициализируем переменную, хранящую кол-во букофф 'a'
         for i := 1 to len do 
                if s[i] = 'a' then \\ если i-тый символ строки s = 'a' тогда 
                         Inc (count); \\ инкриминируем переменную <...> 
        WriteLn ('Всего ', count, ' букв а'); \\ Вывели кол-во букафф 'a'

        a := Pos (' ', s); \\ нашли 1 пробел в строке s

        b := Pos (' ', Copy (s, a, Length(s) - a)); \\ "взяли, отрезали строку после 1 пробела" и там нашли снова 1 пробел (в "отрезанной строке" или 2 в целой строке)

        WriteLn (Copy (s, a+1, Length(s) - b)); \\ Вывели строку от позиции 1 пробела - 1 до 2 пробела = имя
end.

[layl]

Спасибо огромное!!!