Разработать программу, обеспечивающую замену в текстовом файле строчных букв прописными, а прописных строчными. Имя файла должно вводиться с клавиатуры — Pascal(Паскаль)

uses crt;
var f,g:text;
    namef,nameg,s:string;
    i:byte;
begin
clrscr;
write('Введите имя файла для изменений:  ');
readln(namef);
namef:=namef+'.txt';
assign(f,namef);
reset(f);
write('Введите имя файла для записи:  ');
readln(nameg);
nameg:=nameg+'.txt';
assign(g,nameg);
rewrite(g);
while not eof(f) do
 begin
  readln(f,s);
  for i:=1 to length(s) do
   begin
    if s[i] in ['a'..'z'] then s[i]:=UpCase(s[i])
    else if s[i] in ['A'..'Z'] then s[i]:=chr(ord(s[i])+32);
   end;
  writeln(g,s);
 end;
close(f);
close(g);
write('Файл переписан!');
readln
end.