В строке изменить все малые латинские буквы большими. ASCII-коды больших букв 65 – 90, малых 97 – 122 — Pascal(Паскаль)

Const mn=['a'..'z'];
var Stroka:string;
i:integer;
begin
write('Введите строку');
readln(Stroka);

for i:=1 to length(Stroka) do
if Stroka[i] in mn then
Stroka[i]:=chr(ord(Stroka[i])-32);

write(Stroka);
readln;
end.