Помогите пожалуйста решить эти задачи.Я в поиск заходил но не нашел ни одной подобной задачи.
1. Удвоить все буквы ‘о’, встречающиеся в словах.
2. Определить, имеются ли в последовательности слова, в которых все буквы различны.
3. Слова, начинающиеся с буквы ‘а’, расположить в начале последовательности, сохраняя исходный порядок следования слов.

  i := 1;
  while i <= length(s) do begin
    if s[i] = 'o' then insert('o', s, i)
    else dec(i);

    inc(i, 2);
  end;

Не понял... так изменять или не изменять порядок слов? Как ты можешь расположить какие-то слова в начале, сохраняя при этом порядок следования?

Спасибо за помощь к 1 задаче.
В 3 задаче имеется ввиду оставить те слова которые не начинаются на букву 'а' на своем месте.

Ну, тогда разбить строку на слова: Разбиение на слова. Все способы (лучше - именно тем способом, на который ведет ссылка), а потом:

  s := ''; T := '';
  for i := 1 to n do
    if w[i][1] = 'a' then T := T + w[i] + ' '
    else s := s + w[i] + ' ';

  writeln(T + s);

Спасибо за помощь к 3 задаче.
ИСТИНА ГДЕ-ТО РЯДОМ!!!!!!!!!!!!!!!!