Заменить в строке все малые буквы- на большие, а большие- на малые - Pascal ABC

Формулировка задачи:

Дана строка, заменить в этой строке все малые буквы - на большие, а большие - на малые. Спасибо за внимание!

Решение задачи: «Заменить в строке все малые буквы- на большие, а большие- на малые»

Листинг программы

Var s, newS : string;
    i : integer;
begin
s:='ывТиюб гРпиЗ';
Writeln(s);
i:=1;
newS:='';
For i:=1 to length(s) do
    begin
    If (ord(s[i])>=65) and (ord(s[i])<=90) then newS:=newS+chr(ord(s[i])+32) else
    If (ord(s[i])>=97) and (ord(s[i])<=122) then newS:=newS+chr(ord(s[i])-32) else
    If (ord(s[i])>=122) and (ord(s[i])<=223) then newS:=newS+chr(ord(s[i])+32) else
    If (ord(s[i])>=224) and (ord(s[i])<=255) then newS:=newS+chr(ord(s[i])-32) else
        newS:=newS+s[i];
    end;
s:=newS;
Writeln(s);
end.

Объяснение кода листинга программы

Создаются две переменные типа string: s и newS.
В переменную s записывается исходная строка 'ывТиюб гРпиЗ'.
Выводится на экран содержимое переменной s.
Создается переменная i типа integer.
В переменную newS записывается пустая строка.
Запускается цикл for, который выполняется от 1 до длины переменной s.
Внутри цикла проверяется каждая буква в строке s.
Если символ является заглавной буквой (ord(s[i])>=65) и в то же время не является символом новой строки (ord(s[i])<=90), то к переменной newS добавляется символ, полученный путем преобразования текущего символа в строчную букву с помощью функции chr и добавления 32 к его коду с помощью оператора +.
Если символ является прописной буквой (ord(s[i])>=97) и в то же время не является символом новой строки (ord(s[i])<=122), то к переменной newS добавляется символ, полученный путем преобразования текущего символа в строчную букву с помощью функции chr и вычитания 32 из его кода с помощью оператора -.
Если символ является символом новой строки (ord(s[i])>=122) и в то же время не является символом новой строки (ord(s[i])<=223), то к переменной newS добавляется символ, полученный путем преобразования текущего символа в строчную букву с помощью функции chr и добавления 32 к его коду с помощью оператора +.
Если символ является символом новой строки (ord(s[i])>=224) и в то же время не является символом новой строки (ord(s[i])<=255), то к переменной newS добавляется символ, полученный путем преобразования текущего символа в строчную букву с помощью функции chr и вычитания 32 из его кода с помощью оператора -.
Если символ не соответствует ни одному из вышеперечисленных условий, то он просто добавляется в переменную newS без изменений.
После завершения цикла переменная newS заменяет переменную s.
Выводится на экран содержимое переменной newS.