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

program zz1;

var s:string; / / задаем переменную строкового типа

s1:char; / / задаем переменную символьного типа

i:integer; / / задаем переменную целого типа

begin

write (' введите строку ');

read (s); / / вводим с клавиатуры строку

for i:=1 to length (s) do / / организуем цикл, в котором переберем все символы от первого до последнего

if (ord (s[i]) >=224) and (ord (s[i]) <=255) / / проверяем, если код символа соответствует строчной русской букве, то

then begin s1:=s[i]; delete (s, i, 1); insert (chr (ord (s1) - 32), s, i); end; / / удаляем этот символ из строки, а на его место вставляем такую же заглавную букву

writeln (' полученная строка = ', s); / / выводим ответ

end.