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

Var s:string;
i:integer;
begin
readln(s);
for i:=1 to length(s) do
if 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.