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

Если с кириллическими символами программа работать не будет, то следует удалить строки с четырехзначными значениями для выбора в 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.