Объясните, пожалуйста, почему у меня в этой программке выводится заключительная буква

Растолкуйте, пожалуйста, почему у меня в этой программке выводится последняя буква первого слова, а не второго, и что надо поправить, чтоб выводило заключительную букву второго слова предложения?
Program vtor_bukva;
Var
S:String;
Begin
Writeln('введите начальное предложение: ');
Readln(s);
write('Заключительная буковка второго слова=',s[pos(' ',s)-1]);
readln (s);
end.
Даю 20 баллов. Помогите, пожалуйста.

Задать свой вопрос
1 ответ
Program vtor_bukva;

var
  S: String;

begin
  Writeln('введите начальное предложение: ');
  Readln(s);
  delete(s, pos(' ', s), 1);
  write('Последняя буковка второго слова=');
  if pos(' ', s) lt;gt; 0 then write(s[pos(' ', s) - 1])
  else write(s[length(s)]);
  readln(s);
end.

Твоя программка выводит символ, стоящий перед ПЕРВЫМ пробелом. А необходимо, чтоб выводила знак, стоящий перед вторым пробелом. Не стоит забывать, что второго пробела может и не быть. Так что, я удаляю 1-ый пробел. А позже делаю проверку: есть ли ещё пробелы (if pos(' ', s) lt;gt; 0)? Если пробелы есть, то программа выводит буковку, следующую перед вторым пробелом (или последнюю буковку второго слова). Если пробелов нет (всего два слова в предложении было введено), то программка выводит заключительную буковку (s[length(s)]). Если что-то не понятно, в лс.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт