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

Все необходимое множество "букв" задать тут: Lett := ['A'..'z', 'А'..'я'];

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] := cend;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_furiously____noam_chomsky________