Процедуры и функции: в строке заменить все символы верхнего регистра в символы нижнего регистра - Free Pascal

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

Написать процедуру, которая в строке заменяет все символы верхнего регистра в символы нижнего регистра.

Решение задачи: «Процедуры и функции: в строке заменить все символы верхнего регистра в символы нижнего регистра»

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

procedure Up2down(var S : String);
begin
  S := LowerCase(S);
end;

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

В данном коде написана процедура с именем Up2down, которая принимает один параметр типа String с именем S. Внутри процедуры происходит замена всех символов верхнего регистра в строке S на символы нижнего регистра. Для этого используется функция LowerCase, которая преобразует строку в нижний регистр. После применения функции LowerCase, новое значение строки S присваивается обратно в параметр S. Таким образом, после выполнения процедуры Up2down, входная строка S будет содержать только символы нижнего регистра.