Дана строчка, состоящая из слов, разделенных пробелами (одним либо несколькими). Составить

program string_2;
var s, slovo, otv:String; ns, ks, i, m: Integer;
begin
nbsp;nbsp;nbsp;Writeln (Введите строчку:); Readln(s);
nbsp;nbsp;nbsp;i:=1; ns:=1; otv:=; s:=s+ ;
nbsp;nbsp;nbsp;while ilt;=Length(s) do
nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;while (ilt;=Length(s)) and (s[i]lt;gt; ) do i:=i+1; отыскиваем очередной пробел
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;ks:=i; slovo:=Copy(s, ns, ks-ns); выделяем слово
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;m:=Length(slovo) div 2; половина длины слова
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;if (Length(slovo) mod 2=0) and (Copy(slovo,1,m)=Copy(slovo,m+1,m))
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;если слово имеет четную длину
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;then otv:= otv+slovo+ ,; прибавляем слово к ответу
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;while (ilt;=Length(s)) and (s[i]= ) do i:=i+1; пропускаем пробелы
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;ns:=i; начало следующего слова
nbsp;nbsp;nbsp;end;
nbsp;nbsp;nbsp;Delete(otv, Length(otv), 1); устраняем излишнюю запятую в конце
nbsp;nbsp;nbsp;Writeln(otv);
nbsp;nbsp;nbsp;Readln
end.