RosettaCodeData/Task/String-case/Delphi/string-case.delphi

writeln(uppercase('alphaBETA'));
writeln(lowercase('alphaBETA'));