Program Mengubah huruf Besar Menjadi Kecil dan Sebaliknya

To conversion character or word from small character to big character or opposite,we can use statement like this :

program conversion_character;
uses wincrt;

function KHuruf(s:string) : string;
var
x : byte;
panjang : integer ;
begin
panjang:= length(s);
for x:=1 to panjang do
begin
if s[x] <> upcase (s[x]) then
s[x] :=upcase(s[x])
else
if s[x]=' 'then s[x] :=s[x]
else
s[x]:= chr(ord(s[x])+32);
end;
KHuruf :=s;

end;

var
k:string;
begin

write('Write a word='); readln(k);
writeln;
writeln('your ward are :',k);
writeln;
writeln('after conversion=',KHuruf(k));

end.

if we run the statement,we are get output like this :