Program konversi Kalimat dari huruf kecil ke huruf BESAR PASCAL

Kali ini saya akan membagikan program mengonversikan kalimat di pascal dimana dalam satu kali input kalimat akan dikonversikan dari kata-kata dari huruf kecil diubah ke besar dan kata-kata dari huruf besar diubah ke huruf kecil. program ini mengunakkan kode desimal dari huruf sesuai dengan ASCII ( American Standar Code For Information Interchange). Langsung aja cek source codenya. 

=============================================
Program Konversikalimat;
Uses Crt;
Var
i : integer;
kalimat : string;
Begin
Clrscr;

Write('Masukkan Kalimat Anda : ');
Readln(kalimat);
For i := 1 to Length(kalimat) do
if ord(kalimat[i]) > 96 then
begin
kalimat[i] :=chr(ord(kalimat[i]) - 32);
end
else if ord(kalimat[i]) = 32 then
begin
kalimat[i] := chr(32);
end
else if ord(kalimat[i]) < 96 then
begin
kalimat[i] := chr(ord(kalimat[i]) + 32 );
end;
Write('Hasil Konversi Adalah ' ,kalimat);
Readln;
End.

-------------------------NUHUN-----------------