В строке изменить все малые латинские буквы большими. 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.