Задачи со строками

[Егор93]

1. Дана строка символов. Заменить все пробелы в заданной строке точками и запятыми поочередно.
2. Дана строка символов. Изменить строку: во всех словах, имеющих нечетное количество символов, средний символ удалить.

Вот первая программа в конце не хочет заменять последовательность символов ...... на .,.,.,

PHP код:

Program P4;
uses crt;
var k,s:string;
i,j:integer;
begin
j:=0;
writeln('Stroka');read(s);
for i:=1 to length(s) do
if (s[i]=' ') then
begin
 s[i]:='.';
 j:=j+1;
 k[j]:=s[i];
 end;
 write('Kol-vo probelov=');
 writeln(j);
for j:=1 to j do
write(k[j]);
writeln;
begin
if k[j]='.' then
for j:=1 to j  do
k[2*j]:=',';
for j:=1 to j do
write(k[j]);
writeln;
for i:=1 to length(s) do
begin
for j:=1 to j do
if s[i]='.' then s[i]:=k[j];
end;end;
for i:=1 to length(s) do
write(s[i]);
readln;
end. 


Вот часть второй программы, я смог только написать чтобы удалялся средний элемен в 1 слове а не в каждом слове(кол-во букв нечетное) в строк

PHP код:

program P5;
uses crt;
var k: integer;
    st:string;
begin
  clrscr;
  write('st= ');readln(st);
  k:= length(st);
  if k mod 2=1 then
  delete(st,k div 2+1,1);
  writeln(st);
  readln;
end. 


Кто может помогите пожалуйста, заранее благодарен.

[Mad_Cat]

1

var s:string;c:char;i:integer;
begin
read(s);
c:='.';
for i:=1 to length(s) do
if s[i]=' ' then
begin
s[i]:=c;
if c='.' then c:=','
else c:='.';
end;
write(s);
end.

2

var s,s1:string;c:char;i:integer;
buf:string;
begin
readln(s);
S:=s+' ';
buf:='';
for i:=1 to length(s) do
if s[i]=' ' then
begin
 s1:=s1+s[i];
 if odd(length(buf)) then delete(buf,length(buf) div 2+1,1);
 s1:=s1+buf; buf:='';
end
else buf:=buf+s[i];
s:=s1;
writeln(s);
end.

[Егор93]

Спасибо огромное

[olegozavr]

Не могли бы вы объяснить сей код. Никак не могу сообразить по какому принципу он работает. Заранее спасибо.

var
  s, s1: string;c: char;i: integer;
  buf: string;

begin
  readln(s);
  S := s + ' ';
  buf := '';
  for i := 1 to length(s) do
    if s[i] = ' ' then
    begin
      s1 := s1 + s[i];
      if odd(length(buf)) then delete(buf, length(buf) div 2 + 1, 1);
      s1 := s1 + buf; buf := '';
    end
    else buf := buf + s[i];
  s := s1;
  writeln(s);
end.