Поиск текста с позиции найденного слова "+1"

[artemavd]

Итак, после некоторых попыток самостоятельной работы и использованием выложенных кодов, был придуман такой вариант.
Сначала пишется функция:

function GetText1(OpenTag,aText,CloseTag:string):string;
begin
 Result:=Copy(aText,AnsiPos(OpenTag,aText)+Length(OpenTag),AnsiPos(CloseTag,aText)-Length(CloseTag)-1);
end;

потом в кнопке пишется такой код (где применяется функция выше):

procedure TForm1.sBitBtn2Click(Sender: TObject);
const a: array [1..4] of String = (' в отношении ',' ОГРН ',' ИНН ',' ');
var i,j,k: Integer;
    s,ResultS: string;
begin
  ResultS:='';
  s:=Form1.sRichEdit1.Text;
  for i:=1 to 4 do
  begin
    j:=Pos(a[i],s);
    if j=0 then Break;
    k:=Pos(a[i+1],s);
    if (k=0) or (k<j) then Break;
    ResultS:=ResultS+Copy(s,j+Length(a[i]),k -j-Length(a[i]))+' ';
    s:=Copy(s,k,Length(s)-k);
  end;
  if ResultS <> '' then ResultS:=Copy(ResultS + 'ИНН ',1,Length(' ОГРН ' +ResultS)-1) + GetText1(' ИНН ',sRichEdit1.Text,' ');
  ShowMessage(ResultS);
end;

Получается сообщение например: ЗАО "Весна" 123456 ИНН 000000
Все почти пучком. Только вопрос: как добавить слово "ОГРН" между ЗАО "Весна" и 123456, чтобы оно было перед 123456?

Теперь по коду Аватара. Когда я думал над кодом выше, я не видел, что ты добавил там. Попробовал его и есть только один аналогичный вопрос: как добавить слова "ОГРН" и "ИНН" в результат, чтобы получалось, например, ЗАО "Весна" ОГРН 123456 ИНН 000000? Если решить хотя бы один из этих вопросов, то задача будет решена и дальше я сам уже.

[Аватар]

const a: array [1..4] of String = ('<Left>','<Center>','<right>',' ');
var i,j: Integer;
    s,ResultS: string;
begin
  ResultS:='';
  s:='...<Left>left Text<Center>center text<right>12 ...';
  for i:=1 to 3 do begin
    j:=Pos(a[i],s);
    if j=0 then Break;
    s:=Copy(s,j+Length(a[i]),Length(s)-j-Length(a[i])+1);
    j:=Pos(a[i+1],s);
    if (j=0) and (i<3) then Break;
    if j=0 then ResultS:=ResultS+s+' '
           else ResultS:=ResultS+Copy(s,1,j-1)+' ';
    if i=1 then ResultS:=ResultS+'ОГРН '
    else if i=2 then ResultS:=ResultS+'ИНН ';
    s:=Copy(s,j,Length(s)-j+1);
  end;
  if ResultS<>'' then ResultS:=Copy(ResultS,1,Length(ResultS)-1);
  ShowMessage(ResultS);
end;

[artemavd]

Огромное спасибо всем за помощь!