Ввести фамилию,имя и отчество как одно данное строкового типа. Определить длину строки и количество букв ‘а’ в ней. Вывести на экран три буквы(свои инициалы-ФИО) с точками — Pascal(Паскаль)

var
   s:string;
   i,k:longint;
begin
   writeln('ФИО');
   readln(s);
   k:=0;
   for i:=1 to length(s) do
      if s[i] in ['a','а','A','А'] then
         inc(k);
   writeln('Букв "a" : ',k);
   s[0]:=' ';
   for i:=1 to length(s) do
      if s[i]<>' ' then
         if s[i-1]=' ' then
            write(s[i],'.');
end.