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

var st,last_name: string;  i,j,n: integer;  k: integer;  ini :array[1..2] of char; begin  readln(st);  n:=length(st);  last_name:= copy(st, 1, pos(' ', st) - 1);   j:=1;  for i:=1 to n do   begin      if st[i]='а' then Inc(k);      if st[i]=' ' then         begin              ini[j]:=st[i+1];           Inc(j);     end;  end; writeln('Длина строки: '+n); writeln('Количество букв а: '+k); writeln(last_name+' '+ini[1]+'.'+ini[2]); end.