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

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

program Up_Low;var s:string;c:integer;beginwriteln(\'Введите строку символов с большими и малыми буквами\');readln(s);for i:integer:=1 to length(s) dobeginc:= ord(s[i]);case c of97..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])endendend.