0
Program huruf_kapital;
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
clrscr;
write('Masukan Kalimat : ');readln(k);
writeln;
writeln('Kata Tersebut Adalah : ',k);
writeln;
writeln('Setelah di konversi : ',KHuruf(k));
readkey;