BLOGNGUIK

program mengonversi;
uses wincrt;
var
teks: string[10];
selisih, i, x: integer;
ul: char;

begin
clrscr;
repeat

write('MASUKAN TEKS YANG ANDA INGINKAN: '); readln(teks);
selisih:= ord('a')-ord('A');
x:=length(teks);
for i:= 1 to x do
begin
{SELISIH 'A' DAN 'a'=32}
if (teks[i]>='A') and (teks[i]<='Z') then
teks[i]:=chr(ord(teks[i])+selisih)
else
{selisih 'a' dan 'A'=32}
if (teks[i]>='a') and (teks[i]<='z') then
teks[i]:=chr(ord(teks[i])-selisih);
end;

writeln;
write('MEMBACA TEKS YANG TELAH ANDA MASUKAN: '); writeln(teks);
writeln;

write('MAU COBA LAGI? [Y/T]: '); readln(ul);
until upcase (ul)<>'Y';
readln;

end.