Замена в текстовом файле строчных букв прописными, а прописных строчными

program pro2;
   var a,b,c:real;
   {описание процедуры}
   procedure step(var x,y,s:real);
   begin
   s:=exp(y*ln(x));
   end;
       begin
    writeln('vvedite a');
   readln (a);
   writeln('vvedite b');
   read(b);
       step(a,b,c);
       writeln('c=',c);
        readln
   end.

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.

program pro2;
uses crt;
procedure step(x,y:real;var s:real);
begin
s:=exp(y*ln(x));
end;
var a,b,c:real;
begin
clrscr;
writeln('vvedite a');
readln (a);
writeln('vvedite b');
readln(b);
step(a,b,c);
writeln('c=',c:0:3);
readln
end.