Программа, которая переводит строчные в прописные, некорректно работает с русскими буквами - Pascal ABC

Формулировка задачи:

Вот программа,которая переводит строчные в прописные.С английскими буквами все хорошо,но когда ввожу рууские,то переводит только последнюю букву в чем ошибка. И еще такой вопрос.Есть противоположная функция для upCase?Тоесть,как написать программу,которая переводила бы прописные в строчные?

Program lab7;
var
  str: string;
  i: integer;
  ch: char;
begin
  write('Введите слово: ');
  readln(str);
  for i:=1 to length(str) do
    if ord(str[i])<=127 then str[i]:=upCase(str[i]);
    if (str[i]) in ['а'..'я'] then str[i]:=upCase(str[i]);
 
  writeln(str);
  readln;
end.

Все,сам разобрался.ВОт рабочая программа.

Program lab7;
var
  str: string;
  i: byte;
  
begin
  write('Введите слово: ');
  readln(str);
  for i:=1 to length(str) do
    if ((ord(str[i])<=95) or (ord(str[i]) > 64)) then str[i]:=LowerCase(str[i]);
    if ((ord(str[i])<=223) or (ord(str[i]) > 191)) then str[i]:=LowerCase(str[i]);

  writeln(str);
  readln;
end.

Решение задачи: «Программа, которая переводит строчные в прописные, некорректно работает с русскими буквами»

Листинг программы

var
  str: string;
begin
  write('Введите слово: ');
  readln(str);
  str:=LowerCase(str);
  writeln(str);
end.

Объяснение кода листинга программы

В программе объявлена переменная str типа string, которая будет использоваться для хранения введенного пользователем слова.
С помощью функции readln(str) происходит чтение ввода пользователя в переменную str.
С помощью функции LowerCase(str) происходит приведение строки str к нижнему регистру.
С помощью функции writeln(str) происходит вывод строки str на экран.