Составить ТР-программу решения задания обработки данной символьной информации - Turbo Pascal

Удалить часть текста, которая находится между вторым и первым пропуском. текст: не рядись бараном ибо еще волк съест

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

var s:string;
begin
 s:='не рядись бараном ибо еще волк съест';
 delete(s,pos(' ',s)+ 1,pos(' ',copy(s,pos(' ',s)+1,length(s))));
 writeln(s)
end.

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

Объявляется переменная s типа string и присваивается ей строковое значение 'не рядись бараном ибо еще волк съест'.
Выводится значение переменной s.
Выделяется подстрока в переменной s, начиная с позиции первого пробела и до конца строки, используя функцию pos и копирование строки с помощью функции copy.
Используется функция delete для удаления выделенной подстроки из переменной s.
Выводится обновленное значение переменной s.