Получите файл g, образованный из файла f заменой всех его прописных букв одноименными строчными - Turbo Pascal

uses crt;
var f,g:file of char;
    i,n:integer;
    c:char;
begin
 assign(f,'f.txt');
  assign(g,'g.txt');
 rewrite(f);
  rewrite(g);
 write('Êîë-Г±ГІГўГ® êîìïîГ*ГҐГ*òîâ ГґГ*éëГ* n=');
  readln(n);
 writeln('ÈñõîäГ*ûé ГґГ*éë :');
  for i:=1 to n do
   begin
    readln(c);
    write(f,c);
   end;
 reset(f);
  while not eof(f) do
   begin
    read(f,c);
    if c=Upcase(c) then
     write(g,chr(ord(c)+32))
    else
     write(g,Upcase(c));
    write(c:4);
   end;
writeln;
 reset(g);
 writeln('Íîâûé ГґГ*éë :');
  while not eof(g) do
   begin
    read(g,c);
    write(c:4);
   end;
end.