Составьте программу ,определяющую ,на какую букву начинается второе слово в предложении.

Если не рассматривать сложные предложения (наличие кавычек, скобок и т.д.), то так:

var
s:string;
n:integer;
begin
writeln('Введите предложение:');
readln(s);
n:=pos(' ',s);
writeln('Ответ: ',s[n+1])
end.

Составьте программу ,определяющую ,** какую букву начинается второе слово в предложении.