сделать маленькие буквы большими, а большие маленькими

Program lab2_2;
uses crt;
var s: String;
n, i, b, j: longint;
c: char;
begin
clrscr;
writeln('Введите строку из заглавных букв:');
readln(s);
n:=length(s);
i:=1;
b:=0;
for j:=1 to n do
begin
c:=s[j];
{-----------------------------------------}
b:=(ord(c))-127;
{Write(b);
end; }
Case b of
1..9:
begin
Write('0');
Write(b);
end;
10..33:Write(b);
-95:Write('00');
else exit;
end;
{----------------------------------------}
end;
readkey;
end.

{Ввести c экрана строку из больших и маленьких латинских букв и цифр.
Преобразовать строку, сделав маленькие буквы большими, а большие
маленькими, цифры удалить из строки.}
Program lab2_2;
uses crt;
var s: String;
n, i, b, j: longint;
c: char;
begin
clrscr;
writeln('Введите строку из больших и маленьких латинских букв и цифр:');
readln(s);
for i:=length(s) downto 1 do
if s[i] in ['a'..'z'] then s[i]:=Upcase(s[i])
else if s[i] in ['A'..'Z'] then s[i]:=chr(ord(s[i])+32)
else if s[i] in ['0'..'9'] then delete(s,i,1);
write(s);
readkey;
end.