Удаление средней буквы из нечетного слова

program srs_7;
uses crt;
var s,s1,s2:string;
n,i,j,f:integer;
begin
clrscr;
readln(s);
for i:=1 to length(s) do
if s[i]=’.’ then
begin
j:=i;
repeat j:=j-1 until s[j]=’.’;
end;
j:=j+1;
s1:=copy(s,j,(i-j));
writeln(s1);
s2:=copy(s,1,pos(‘,’,s)-1); if not(s2=s1) then begin
if (length(s2) mod 2)=1 then delete(s2,(length(s2) div 2)+1,1);
write(s2,’ ‘); 
end;
i:=0;
repeat inc(i);
if s[i]=’,’ then begin 
j:=i;
repeat j:=j-1; until s[j]=’,’;
s2:=copy(s,i-(i-j),(i-j));
delete(s2,1,1);
if not (s2=s1) then begin
if (length(s2) mod 2)=1 then delete(s2,(length(s2)div 2)+1,1);
write(s2,’ ‘);
end;
end;
until i>=length(s);
readln;
end.