Файл: Выяснить, начинаются ли все предложения с заглавной буквы, если нет, то исправить. - Free Pascal

Дан текстовый файл.Выяснить начинаются ли все предложения с заглавной буквы ,если нет ,то исправить.Объясните как такое делать

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

for var i:=1 to ksm do begin

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

Переменная ksm объявляется и инициализируется значением 1.
Запускается цикл for с переменной i от 1 до ksm.
Внутри цикла каждая строка файла считывается в переменную s.
Переменная b инициализируется значением 1.
В каждой строке проверяется, начинается ли предложение с заглавной буквы. Если нет, то значение переменной b устанавливается в 0.
Если значение переменной b равно 0, то предложение исправляется путем добавления заглавной буквы в начало строки.
Исправленная строка записывается в файл.
Цикл завершается.