Дана строка содержащая текст записанный строчными буквами.получить в другой строке тот же текст записанный заглавными бувами

Program upcase;
uses crt;
var
input:string;
begin 
writeln('Vvedite stroku: ');
 read(input);
 writeln(UpperCase(input));
end.