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

// - Символ комментария, он не компилируется.

program findtheletter; // Заглавие программки
var
i: integer; // Объявляем целочисленную переменную 
str: string; // Объявляем строковую переменную
begin
  readln(str); // Читаем строчку с консоли
  i:=pos( ,str); // Отыскиваем позицию первого пробела
  println(str[i+1]); // Выводим значение последующего знака после первого пробела
end.