Написать программку, которая сменяет все заглавные буковкы строчными, а строчные

Если с кириллическими знаками программка работать не будет, то следует удалить строчки с четырехзначными значениями для выбора в case и работать только с латинскими. 

program Up_Low;
var s:string;
c:integer;
begin
writeln(Введите строчку знаков с большими и малыми знаками);
readln(s);
for i:integer:=1 to length(s) do
begin
c:= ord(s[i]);
case c of
97..122: write(chr(Ord(c)-32));
65..90:write(chr(Ord(c)+32));
1025:write(chr(Ord(c)+80));
1105:write(chr(Ord(c)-80));
1040..1071:write(chr(Ord(c)+32));
1072..1103:write(chr(Ord(c)-32));
else write(s[i])
end
end
end.