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

Program mbb;
uses crt;
var s:string;
    i,f:integer;
begin
clrscr;
writeln ('введите сообщение:');
readln(s);
         f:=0;
        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 ['а'..'я'] then
                                s[i]:=chr(ord(s[i])-32)
                                  else
                          if s[i]='ё' then
                        s[i]:='Ё'
                     else
                  if (s[i] in ['A'..'Z'])or(s[i] in ['А'..'Я']) or (s[i]='Ё')
               then     f:=f+1;
            end;
  write(s);
  writeln(' ');
if f=length(s) then  writeln('замена не производилась');
readln;
end.

Var
  f,f2: Text;
  nam: String;
  x: Char;
BEGIN
Write('Vvedite imya faila: '); Readln(nam);
Assign(f,nam+'.txt');
{$I-}
Reset(f);
{$I+}
If IOResult=0 Then
begin
  Assign(f2,'file.txt');
  Rewrite(f2);
  While not Eof(f) do
  begin
    Read(f,x);
    If x in ['a'..'z'] Then
    x:=Upcase(x);
    Write(f2,x);
  end;
  Writeln('Gotovo');
  Close(f);
  Close(f2);
end
Else Writeln('Fail ne naiden');
Readln
END.