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

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

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