Дана строка, состоящая из латинских строчных букв, заменить их аналогичными прописными буквами. Pascal ABC

var s:string;i:integer;beginreadln(s);for i:=1 to length(s) doif s[i] in ['a'..'z'] then write(chr(ord(s[i])+ord('A')-ord('a')));end.

var  str : string;begin  write('Введите строку: ');  readln(str);  writeln('Результат: ', str.ToUpper);end.