Дан символьный файл f, получить файл j образованный из файла f заменой всех его прописных(больших) букв одноименными строчными(малыми).

var
f,j:file of char;
c:char;
begin
assign(f,'input');
reset(f);
assign(j,'output');
rewrite(j);
repeat
read(f,c);
if c in ['A'..'Z','a'..'z','а'..'я','А'..'Я'] then begin
c:=upcase(c);
c:=chr(ord(c)+32);
write(j,c);
end
else write(j,c);
until eof(f);
close(f);
close(j);
end.

uses crt;
var f,j:file of char;
    c:char;
begin
assign(f,'fileF');
rewrite(f);
assign(j,'fileG');
rewrite(j);
writeln('Введите в файл различные буквы, окончание ввода точка:');
repeat
c:=readkey;
write(c);
write(f,c);
until c='.';
clrscr;
reset(f);
writeln('Содержание исходного файла:');
while not eof(f) do
 begin
  read(f,c);
  write(c);
  if c in ['A'..'Z','А'..'Я']then c:=chr(ord(c)+32)
  else if c='Ё' then c:='ё';
  write(j,c);
 end;
close(f);
writeln;
reset(j);
writeln('Замена прописных букв строчными:');
while not eof(j) do
 begin
  read(j,c);
  write(c);
 end;
close(j);
end.