Написать программу, которая читает с клавиатуры произвольную строку символов, преобразует ее и выводит результат на дисплей в виде строки. — Длина строки заранее не вводится, а определяется после окончания ввода с клавиатуры. — В строке группы символов разделяются одним или несколькими пробелами. Пробелы могут находиться в начале и в конце строки. Группа символов — последовательность букв, цифр или знаков, отделенная пробелами от других групп или находящаяся в начале/конце строки. — Все буквы считать вводимыми только в нижнем регистре, Заглавные буквы не рассматривать
program clav;
var
s,t,r:string;
i,j:integer;
b,k:boolean;
a:set of char;
begin
write('Enter text:');
readln(s);
s:=s+' ';
t:='';
r:='';
b:=true;
for i:=1 to length(s) do
if s[i]<>' ' then begin
if s[i] in ['a'..'z'] then t:=t+s[i] else b:=false;
end else begin
a:=[];k:=false;
for j:=1 to length(t) do if t[j] in a then k:=true else include(a,t[j]);
if k and b then r:=r+t+' ';
t:='';b:=true;
end;
writeln('Result:',r);
readln;
end.