Выделение неизвестной подстроки по двум заданным параметрам - PascalABC.NET

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

Доброго времени суток. После отправки XML запроса страница возвращает вот это:

<SpellResult>
<error code="1" pos="0" row="0" col="0" len="8">
<word>Слово1</word>
<s>Слово2</s>
<s>Слово3</s>
<s>Слово4</s> //таких строчек <s>Слово...</s> может быть скольку угодно.
</error>
</SpellResult>

Полученный ответ записывается в переменную типа string. Задача: на языке PascalABC.NET "обрубить" эту переменную с ответом так, чтобы осталось только "Слово2". Желательно к каждой команде приводить пояснение, где какая переменная что будет означать. Если можно, то весь код полностью.

Решение задачи: «Выделение неизвестной подстроки по двум заданным параметрам»

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

var s:string;
begin
s:='<SpellResult><error code="1" pos="0" row="0" col="0" len="8">'+
   '<word>Слово1</word><s>Слово2</s><s>Слово3</s><s>Слово4</s>'+
   '</error></SpellResult>';
delete(s,1,pos('s>',s)+1);
delete(s,pos('<',s),length(s));
write(s)
end.

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

В первой строке объявляется переменная s типа string и присваивается значение '<error code=1 pos=0 row=0 col=0 len=8>'
Затем с помощью функции delete удаляются подстроки в заданных позициях. Первая позиция - 1, вторая позиция - pos('s>',s)+1.
Функция pos возвращает позицию первого вхождения подстроки 's>' в строке s.
После удаления подстрок, длина строки s сокращается на 2.
В последней строке выводится значение переменной s.