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