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

[superseal]

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

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

результат

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

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

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

[superseal]

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

[Lapp]

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

Хорошо. Заходи еще.
На всякий случай выкладываю свое решение (только для английских букв).

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;
    while Pos(Sample,w)>0 do begin
      p:=Pos(Sample,w);
      if p>Max then Max:=p;
      w[p]:=#0
    end
  until w='';
  s:=Text;
  repeat
    w:=GetNextWord;
    v:=w;
    while Pos(Sample,w)>0 do begin
      p:=Pos(Sample,w);
      w[p]:=#0;
      for i:=1 to Max-p do Write(' ');
      WriteLn(v)
    end
  until w='';
  WriteLn('Hit Enter..');
  ReadLn
end.