Создать функцию, отбpасывающую начальные и конечные пpобелы в введенной стpоке - Free Pascal

Создать функцию, отбpасывающую начальные и конечные пpобелы в введенной стpоке.

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

function trim(s:string):string;
begin
while s[1]=' ' do delete(s,1,1);
while s[length(s)]=' ' do delete(s,length(s),1);
trim:=s;
end;

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

Входная переменная s типа string.
Первая итерация цикла while:
- Проверка условия: s[1]=' '.
- Если условие истинно, то происходит удаление первого пробела из строки s с помощью функции delete(s,1,1).
Вторая итерация цикла while:
- Проверка условия: s[length(s)]=' '.
- Если условие истинно, то происходит удаление последнего пробела из строки s с помощью функции delete(s,length(s),1).
Результат работы функции trim сохраняется в переменной s.
Выход из функции trim с возвратом результата в виде строки.