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

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