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

Program X; //работает только для российских строк
var   
    i: longint;   
    s: string;
begin
    readln(s);
    for i := 1 to length(s) do
        if (ord(s[i]) gt;= 192) and (ord(s[i]) lt;= 223) then
            s[i] := chr(ord(s[i]) + 32)
        else if (ord(s[i]) gt;= 224) and (ord(s[i]) lt;= 255) then
            s[i] := chr(ord(s[i]) - 32);
    writeln(s)
end.