подскажите что делать дальше

Пользователь вводит текст, признаком конца которого явля¬ется точка. Вывести на экран весь исходный текст, заменив в нем все заглавные буквы на прописные . (малые на большие)

вот мое решение

var ch:char;
begin
writeln('Введите текст');
repeat
read(ch);
if (ch>='А') and (ch>='Я') then write

я не знаю как закончить программу (( подскажите пожалуйста