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

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.