Строки(Исправить)

[Nastya2]

Помогите с исправлением программы

Дана строка. преобразовать в ней все строчные буквы ( как латинские,таки русские) в прописные, а прописные в строчные

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

 uses crt;
var s:string;
    i:integer;
begin
clrscr;
write ('s:');readln(s);
for i:=1 to length(s)do
     begin
       if ord(s[i]) in [65..90] then
       s[i]:=chr(ord(s[i])+32)
       else if ord(s[i]) in [97..122] then
       s[i]:=chr(ord(s[i])-32)
       else if ord(s[i]) in [128..143] then
       s[i]:=chr(ord(s[i])+32)
       else if ord(s[i]) in [144..159] then
       s[i]:=chr(ord(s[i])+80)
       else if ord(s[i]) in [160..175] then
       s[i]:=chr(ord(s[i])-32)
       else if ord(s[i]) in [224..239] then
       s[i]:=chr(ord(s[i])-80)
       else if s[i]='Ё' then s[i]:='ё'
       else if s[i]='ё' then s[i]:='Ё';
     end;
write(s);
readln;
end.

[Nastya2]

может быть кому то легче будет заново программу написать...это не важно...очень нужна ваша помощь!