строки в паскале чуть дополнить

[superorakul]

дана строка текста в которой определить количество слов в строке и выведите на экран каждое нечётное слово

uses crt;
var a: string;
     i,s:byte;
  begin
  writeln('Введите слова разделенные пробелами');
  readln(a);s:=1;
  for i:=1 to length(a) do
  if a[i]=' ' then s:=s+1;
  writeln(' Колличество: ', s);
  readln
  end.

посчитать то я посчитааал а как вывести каждое нечётное?

[Poma][a]

s:=1;

В честь чего?

if a[i]=' ' then s:=s+1;

Строка - '______'.., где '_' = пробелу..

а как вывести каждое нечётное?

тыц (c)Stilet

[type_Oleg]

Или так

uses crt;
var a,slo: string;
     i,s:byte;
  begin
  writeln('Введите слова разделенные пробелами');
  readln(a);
  s:=1;
  slo:='';
  for i:=1 to length(a) do
  begin
   if Odd(s)then slo:=slo+a[i] else slo:=''; 
   if a[i]=' ' then 
    begin 
     s:=s+1;
     if slo<>'' then Writeln(slo);
    end; 
  end;
  Writeln(slo);
  writeln(' Колличество: ', s);
  readln
  end.