Дана строка. Преобразовать в ней все прописные латинские буквы в строчные. (Pascal)

program zz1;

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

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

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

begin

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

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

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

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

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

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

end.