Дана строка знаков. Поменяйте в строке все махонькие буквы на одноименные

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;=97)and(ord(s[i])lt;=122))or((ord(s[i])gt;=224)and(ord(s[i])lt;=255)) // проверяем, если код знака в системе ASCII соответствует малюсенькой латинской буковке либо махонькой российской, то
then begin s1:=s[i];delete(s,i,1);insert(chr(ord(s1)-32),s,i);end; // удаляем этот знак из строчки, а на его место вставляем такую же великую буковку
writeln( приобретенная строчка = , s); // выводим ответ
end.