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

procedure Convert(var s:string); {ANSI -> ASCII
при чтении из файла строчных русских букв}
var i:integer;
begin
for i:=1 to length(s) do
if ord(s[i]) in [240..255] then s[i]:=chr(ord(s[i])-16)
else if ord(s[i])=168 then s[i]:=chr(240)
else if ord(s[i])=184 then s[i]:=chr(241);
end;
procedure Convert1(var a:string);{ASCII->ANSI
при записи в файл прописных русских букв}
var i:integer;
begin
for i:=1 to length(a) do
if ord(a[i]) in [128..175] then a[i]:=chr(ord(a[i])+64)
else if ord(a[i])=240 then a[i]:=chr(ord(168))
else if ord(a[i])=241 then a[i]:=chr(ord(184));
end;
procedure UpCaseRus(var s:string);{приведение к верхнему регистру русских букв}
var i:integer;
begin
for i:=1 to length(s) do
if s[i] in ['а'..'п'] then s[i]:=chr(ord(s[i])-32)
else if s[i] in ['р'..'я'] then s[i]:=chr(ord(s[i])-80)
else if s[i]='ё' then s[i]:='Ё';
end;
var f,g:text;
    s:string;
begin
assign(f,'1.txt'); {файл в папке с программой}
reset(f);
assign(g,'2.txt');
rewrite(g);
while not eof(f) do
 begin
  readln(f,s);
  Convert(s); {из ANSI->ASCII}
  UpCaseRus(s); {в верхний регистр}
  Convert1(s); {из ASCII->ANSI}
  writeln(g,s);
 end;
close(f);
close(g);
writeln('Исходный файл прочитан и переписан в файл 2.txt');
readln
end.

procedure UpCaseWin(var s: String);
var i: Integer;
begin
  for i:=1 to Length(s) do
    case s[i] of
    #$e0..#$ff: Dec(s[i],$20);
    #$b8:       Dec(s[i],$10);
    end;
end;
 
var
  f, g: Text;
  s: String;
begin
  Assign(f,'1.txt'); {файл в папке с программой}
  Reset(f);
  Assign(g,'2.txt');
  Rewrite(g);
  while not EoF(f) do begin
    ReadLn(f,s);
    UpCaseWin(s); {в верхний регистр}
    WriteLn(g,s);
  end;
  Close(f);
  Close(g);
  WriteLn('Исходный файл прочитан и переписан в файл 2.txt');
  Write('Нажмите Enter...'); ReadLn;
end.