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

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