Ввести фамилию,имя и отчество как одно данное строкового типа. Определить длину строки и количество букв «а» в ней. Выполнить дополнительное задание: 1. Вывести имя и количество букв в третьем слове. 2. Вывести имя в столбик — Pascal(Паскаль)

uses crt;
var s,s1:string;
    n,i,k:byte;
begin
clrscr;
writeln('Введите через 1 пробел фамилию, имя и отчество');
readln(s);
n:=length(s);
writeln('Длина строки=',n);
k:=0;
for i:=1 to n do
if s[i] in ['a','а'] then k:=k+1;
writeln('Количество букв а=',k);
s1:='';
i:=pos(' ',s)+1;
while s[i]<>' ' do
 begin
  s1:=s1+s[i];
  i:=i+1;
 end;
writeln('Имя  ',s1);
writeln('Имя в столбик:');
for i:=1 to length(s1) do
writeln(s1[i]);
i:=n;
while s[i]<>' ' do
i:=i-1;
write('Количество букв в третьем слове=',n-i);
readln
end.