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.