1) s := Trim(s)
Trim() - убирает пробелы с концов строки В данном случае записывает в s ее же, только без пробелов на концах.
2) p := Pos(".", s) - 1
Pos() - возвращает позицию елемента который указан в первом агрументе функции, в строке , который указан во втором аргументе функции
Сдесь Pos() - возвращает позицию "." (точки) в строке s. В данном случае ищем точку в строке чтобы понять где закончилось предложение, чтобы использовать это значение в следуйщем цикле for для переборки символов. -1 нужен исключить точку, тоесть записать в p длинну предложения без точки.
Объяснение:
