Работа с символами. Паскаль

[Sheva95]

Короче, тема - "Обработка символов и символьных рядков". Нужно ввести с клавиатуры текстовый рядок и:
Удалить первое слово предложения, если общее количество слов больше единицы и является числом нечетным.
Огромное спасибо!!!

[KooKish]

Писал на Pascal ABC:

Program Primer1; {Если слов в предложении > 1 и нечетно, то удаляем 1 слово.}
Var
  a,b: string;
  i,k: integer;
Begin
  Writeln('Введите строку');
  Readln(a);
  b := copy(a,1,length(a));
  If (pos(' ',a) <> 0) then
  begin
    While (pos(' ',b) <> 0) do
      begin
        Delete(b,1,pos(' ',a));
        inc(k);
      end;
    If (k mod 2 = 0) then
      begin
        Delete(a,1,pos(' ',a));
        Writeln('Строка без первого слова: ',a);
      end
    else  Writeln('Вы ввели четное кол-во слов в предложении.');
  end
  else
  Writeln('Вы ввели всего 1 слово.');
End.

[Sheva95]

ААААААА! Спасибо огромное, приятель)))