Вывести второе слово из предложения - Turbo Pascal

Формулировка задачи:

Дано предложение, состоящее из трех слов, разделенных одиночными пробелами. Вывести второе слово. Формат ввода: s - предложение Формат вывода: t - второе слово Пример ввода: My name is Пример вывода: name Заранее спасибо!!!

Решение задачи: «Вывести второе слово из предложения»

Листинг программы

uses  Crt;
var   s,s1:string;
      t,i:integer;
begin
      ClrScr;
       Writeln('String :');
        Readln(s);
         Writeln;
       s1:='';
        for i:=1 to Length(s) do
         if s[i]=' '
          then
           begin
             t:=i+1;
             Break;
           end;
        for i:=t to Length(s) do
         if s[i]<>' '
          then s1:=s1+s[i]
          else Break;
       Writeln(s1);
      ReadKey;
end.

Объяснение кода листинга программы

В начале кода подключается библиотека Crt, которая содержит функции для работы со строками и числами.
Затем объявляются переменные s и s1 типа string (строка) и t и i типа integer (целое число).
Выполняется очистка экрана с помощью функции ClrScr из библиотеки Crt.
Выводится сообщение String : с использованием функции Writeln из библиотеки Crt.
Считывается строка с помощью функции Readln из библиотеки Crt.
Инициализируется переменная s1 пустой строкой.
Запускается цикл for, который начинается с i=1 и продолжается до Length(s) (длина строки s).
Внутри цикла проверяется каждый символ строки s. Если символ - пробел, то выполняется блок кода внутри if. В этом блоке увеличивается значение переменной t на 1 и цикл прерывается с помощью оператора Break.
Если предыдущая проверка не выполнилась, то добавляется текущий символ к переменной s1.
Если предыдущая проверка не выполнилась, то цикл прерывается с помощью оператора Break.
После завершения внутреннего цикла выводится значение переменной s1 с помощью функции Writeln из библиотеки Crt.
Считывается символ с помощью функции ReadKey из библиотеки Crt.