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

program zz1;

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

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

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

begin

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

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

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

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

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

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

end.