Помогите сделать преобразования на паскале

Question

Нужно, чтобы пользователь ввел текст маленькими русскими буквами, а в ответ ему выдало тот же самый текст заглавными буквами.

Константин · Accepted Answer

на и переделай под свою 
 {). Пользователь вводит текст, признаком конца которого является точка. 
 Вывести на экран весь исходный текст, 
 заменив в нем все прописные буквы на строчные (большие на малые) } 
 program pr11; 
 uses crt; 
 var ch:char; 
 begin 
 clrscr; 
 writeln('замена всех прописных букв на строчные '); 
 writeln('-----------------------------------------'); 
 writeln; 
 writeln('Ввести РУССКИЙ текст с заглавными буквами (конец (.): '); 
 repeat 
ch:=readkey; write(ch); 
 if (ord(ch) >= ord('A')) and (ord(ch) <=ord('Я')) then 
 ch:=CHR(ORD(ch) + 32) ; 
 write(ch); 
until ch='.'; 
writeln; 
writeln('Конец задачи'); 
 readkey; 
 end.

Николай Гусев · Answer

program prj1; 
var st: string; 
 i: integer; 
begin 
read(st); 
for i:=0 to length(st) do 
 if ord(st[ i ]) > 159 then 
 st[ i ]:=chr(ord(st[ ord(st[ i ]) - 32 ])); 
 writeln(st); 
readln; 
end. 
 
ps пока печатал уже ответили))