как прогу написать на Pascal?

[christa]

Удалить четные по порядку слова в входной строке (отчет вести с нуля).
'.'-признак конца фразы.

Заранее спасибо.

[|v||v|<<IpShot]

покажите ваш код я посмотрю что не так и помогу если нету то вам врятли кто поможет только в платном разделе

[dr.Chas]

program Project1;
var s,  slovo: String;
    i, j: integer;
begin
  Write('Vvedite stroky: ');
  Readln(s);
  slovo:='';
  j:=-1;
  for i:=1 to length(s) do
  begin
    if (s[i]<>' ') and (s[i]<>'.') then slovo:=slovo+s[i]
    else
    begin
      inc(j);
      if (j mod 2=0) then Write(slovo+' ');
      slovo:='';
    end;


  end;
end.

[christa]

спасибо Вам огромное, очень выручили