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

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.