10. Напишите программу: "Склавиатуры вводится строка из двух слов. Вывести н экран: a) первую и последнюю буквы второго слова; б) количество букв второго слова; в) количество глассных (a) в строке. все это должно быть в одной программе

Var s: string;

n, k: integer;

begin

write ('строка: ') ; readln (s) ;

n:=pos (' ', s) ;

if n>0 then

begin

writeln ('первая буква второго слова: ', s[n+1]) ;

writeln ('последняя буква: ', s[length (s) ]) ;

writeln ('количество букв: ', length (s) - n) ;

k:=0;

for n:=1 to length (s) do

if s[n]='a' then k:=k+1;

if k>0 then writeln ('количество букв a: ', k)

else writeln ('в строке нет буквы a') ;

end

else writeln ('в строке одно слово') ;

end.