Распечатать самое длинное слово (первое) и подсчитать количество букв "а" в нём - Turbo Pascal

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

Распечатать самое длинное слово (первое) и подсчитать количество букв "а" в нём.

Решение задачи: «Распечатать самое длинное слово (первое) и подсчитать количество букв "а" в нём»

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

uses CRT;
var
   s,max: String;
   k,i: Integer;
begin
clrscr;
       write('s=');
       readln(s);
k:=pos(' ',s);
if k > 0
   then max:=''
   else max:=s;;
while k > 0 do begin
      if length(copy(s,1,k-1)) > length(max)
         then max:=copy(s,1,k-1);
      delete(s,1,k);
      k:=pos(' ',s);
   end;
if length(s) > length(max)
   then max:=s;
writeln('Самое длинное слово: ',max);
k:=0;
for i:=1 to Length(max) do
    if max[i]='a' then inc(k);
    Writeln('Буква "а" встречается',' ',k,' ','раз');
Readln;
end.

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

В начале кода подключается библиотека CRT.
Объявляются переменные s, max, k и i. Переменная s предназначена для хранения строки, введенной пользователем. Переменная max инициализируется пустой строкой и будет использоваться для хранения самого длинного слова. Переменная k инициализируется значением 0 и будет использоваться для поиска первого вхождения пробела в строке s. Переменная i используется для подсчета количества букв а в самом длинном слове.
Выводится приглашение на ввод строки.
Считывается введенная пользователем строка.
Ищется первое вхождение пробела в строке s. Если такое вхождение найдено, то переменная max инициализируется подстрокой, которая следует за пробелом, и процесс переходит к следующему шагу. Если пробел не найден, то переменная max инициализируется всей строкой s.
Пока найдено вхождение пробела, повторяются следующие действия:
- Проверяется, является ли подстрока, начиная с первого символа и заканчивая текущим символом, длиннее, чем текущая максимальная подстрока. Если да, то переменная max инициализируется этой подстрокой.
- Символы из строки s удаляются, начиная с первого символа и до текущего символа.
- Ищется следующее вхождение пробела.
Если длина строки s больше длины максимальной подстроки, то переменная max инициализируется всей строкой s.
Выводится сообщение о самом длинном слове.
Счетчик k инициализируется значением 0. Для каждой буквы а в самом длинном слове увеличивается значение счетчика k.
Выводится сообщение о количестве букв а в самом длинном слове.