Вывести часть строки, которая находится между первым и последним пробелами - Turbo Pascal

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

Задана строка A. Вывести часть строки, которая находится между 1-ым и последним пробелами.

Решение задачи: «Вывести часть строки, которая находится между первым и последним пробелами»

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

var
  s: string;
  i, first, last: integer;
 
begin
  write('s = '); readln(s);
  first := 0; last := 0;
  for i := 1 to length(s) do
    if s[i] = ' ' then 
    begin
      if first = 0 then first := i;
      last := i;
    end;
  
  if first * last = 0 then writeln('В строке нет пробелов')
  else if first = last then writeln('В строке всего один пробел')
  else writeln('Часть строки между первым и последним пробелом: "' 
               + copy(s, first + 1, last - first - 1) + '"');
end.

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

В начале объявляются переменные: s - строка, i - целое число, first - целое число, last - целое число.
Строка считывается из стандартного ввода.
Переменные first и last инициализируются нулем.
Затем идет цикл for, который проходит по каждому символу в строке s.
Внутри цикла проверяется, является ли текущий символ пробелом. Если да, то проверяется, являются ли переменные first и last целыми числами.
Если first равен нулю и last равен нулю, то выводится сообщение, что в строке нет пробелов.
Если first равен last, то выводится сообщение, что в строке всего один пробел.
Если first не равен last, то выводится сообщение, что в строке есть пробелы между first и last.
Код, который выводится для третьего случая, объединяет строку s с подстрокой, начиная с first + 1 и заканчивая last - first - 1 (т.е. от первого до последнего пробела), и выводит эту подстроку.