Начиная с заданного символа в каждой строке исходного файла строчные латинские буквы преобразуются в прописные - Pascal

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

Дан текстовый файл f, состоящий из нескольких строк. Пользователь вводит символ, начиная с которого в каждой строке исходного файла строчные латинские буквы преобразуются в прописные. Строки, в которых проведены такие преобразования, записываются в новый файл g. В конце строки через пробел проставляется количество преобразований.

Решение задачи: «Начиная с заданного символа в каждой строке исходного файла строчные латинские буквы преобразуются в прописные»

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

                            var f,g:text;
c:char;
s:string;
b:boolean;
i,j,w:integer;
BEGIN
w:=0;
Assign (f, 'Путь к файлу');
Assign (g, 'Путь к файлу');
Reset (f);
Rewrite (g);
Readln (c);
b:=false;
While not Eof(f) do begin
Readln (s);
For i:=1 to Length(s) do
IF (s[i]=c) and (not b) THEN begin 
Delete (s, 1, i-1);
For j:=1 to Length(s) do begin w:=w+1; Upcase (s[j]); 
Writeln (g, s);
b:=true; 
end;
IF b THEN Begin 
For i:=1 to Length(s) do begin
w:=w+1; 
Upsace(s[i]);
end;
Writeln (g, s);
end;
Close (f);
Close (g);
END.
                        