string, разбор по словам, и позиционный вывод Опции

[superseal]

помогите решить задачу, или подскажите
смысл.
дан список слов, максимум слов может быть 60.
и в зависимости оттого есть ли в слове сочетание букв ова нужно записать слова в таком порядке
например:
список который задан

немцова
корова
оваоова
овал

результат

немцова
_корова
____оваоова
оваоова
____овал

только вместо '_' будет пробел
максимальная длина рядка например 170

заранее спасибо

[Lapp]

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

Правильно я понимаю, что слова, в которых нет этого семпла, нужно опускать?
В любом случае, задача не из самых простых. Делать нужно в два прохода, поскольку заранее неизвестен максимальный индент. Так что надо сначала все просмотреть и определить его. А потом на втором проходе уже печатать.
Я написал полное решение. Там, правда только английские буквы, русских нет. Работает вот так:

Type in a text: abcdef snabcsnnn abchjhjhhjhjhjhjh mnabcnmabcnmabcnmabcnm asdabc
Type in a sample: abc
                 abcdef
               snabcsnnn
                 abchjhjhhjhjhjhjh
               mnabcnmabcnmabcnmabcnm
          mnabcnmabcnmabcnmabcnm
     mnabcnmabcnmabcnmabcnm
mnabcnmabcnmabcnmabcnm
              asdabc
Hit Enter..

Настя, как у тебя с Паскалем дела? Можешь начать это делать? Я не хочу давать тебе полное решение, ведь ты же так ничему не научишься - верно? Могу подкинуть тебе для затравки некоторое начало, в котором есть function for getting next word из заданной строки. Попробуешь продолжить?

const
  Letters: set of char= ['A'..'Z']+['0'..'9'];

var
  s: string;


function GetNextWord: string;
var
  w: string;
begin
  while (Length(s)>0) and not (UpCase(s[1]) in Letters) do Delete(s,1,1);
  w:= '';
  while (Length(s)>0) and (UpCase(s[1]) in Letters) do begin
    w:= w+s[1];
    Delete(s,1,1)
  end;
  GetNextWord:=w
end;

var
  Text,Sample,w,v: string;
  p,Max,i: integer;

begin
  Write('Type in a text: ');
  ReadLn(Text);
  Write('Type in a sample: ');
  ReadLn(Sample);
  s:= Text;
  Max:=0;
  repeat
    w:=GetNextWord;
    ...

Все, что непонятно - спрашивай.

М

На будущее: делай нормальный заголовок