conversion character

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.

And the output is like this :


Article:

http://localhost/wordpress/wordpress/?p=59