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

program zz1;
var s:string; // задаем переменную строкового типа
s1:char; // задаем переменную символьного типа
i:integer; // задаем переменную целого типа
begin
write( введите строчку );
read(s); // вводим с клавиатуры строку
for i:=1 to length(s) do // организуем цикл, в котором переберем все знаки от первого до последнего
if (ord(s[i])gt;=224)and(ord(s[i])lt;=255) // проверяем, если код символа соответствует строчной российской буковке, то
then begin s1:=s[i];delete(s,i,1);insert(chr(ord(s1)-32),s,i);end; // устраняем этот символ из строчки, а на его место вставляем такую же большую буковку
writeln( приобретенная строка = , s); // выводим ответ
end.