Даны две строки произвольного текста. составить процедуру, результатом работы которой является символ, заданный при обращении к процедуре, если этот символ не является буквой, и соответствующая строчная (малая) буква в противном случае. в программе обрабатываются две строки.

Procedure Replace(var s: string; c: char);
var
  i: integer;
  Lett: set of char;
begin
  Lett := ['A'..'z', 'А'..'я'];
  for i := 1 to Length(s) do
    if s[i] in Lett then s[i] := LowCase(s[i])
    else s[i] := c
end;

var
  s1, s2: string;

begin
  write('Введите первую строку: ');
  readln(s1);
  write('Введите вторую строку: ');
  readln(s2);
  Replace(s1, '$');
  Replace(s2, '_');
  writeln(s1);
  writeln(s2)
end.

Тестовое решение:

Введите первую строку: Карл у Клары украл кораллы, а Клара у Карла... украла кларнет! 1+2+3+4+5=15 По-моему так!
Введите вторую строку: "Colorless green ideas sleep furiously"/ (Noam Chomsky, 1957).
карл$у$клары$украл$кораллы$$а$клара$у$карлаукрала$кларнетпо$моему$так$
_colorless_green_ideas_sleep_furiouslynoam_chomsky