Как обратиться к последнему символу в строке (string)? - PascalABC.NET

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

Дана задача, где пользователь вводит строку. Нужно, чтобы строка не начиналась и не заканчивалась пробелами. При вводе предложения я проверяю первый символ на правильность ввода обращаясь непосредственно к первому символу таким образом:

begin
readln(st);
while st[1]=' ' do
begin
writeln('нельзя начинать предложение с пробела, введите строку заново');
readln(st);
end;

Как мне обратиться к последнему символу, если я не могу знать сколько вообще знаков введет пользователь и можно ли проверку на правильность записать более коротким кодом?

Решение задачи: «Как обратиться к последнему символу в строке (string)?»

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

  while (st[1]=' ') or (st[length(st)]=' ') do

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

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