[Hack_ERR++]

Нужно отпарсить текст следующего вида:

Код:

<div class="topictext">текст1</div><br />
<div class="topictext">текст2</div><br />
<div class="topictext">текст3</div><br />

И сохранить результат в файл. Делал так:

Код:

while c>0 do
  begin
  c:=pos('<div class="topictext">',j);
  b:=pos('</div><br />',j);
  cop:=copy(j,c+23,b-c-23);
  append(f1);
  writeln(f1,cop);
  closefile(f1);
  delete(j,c,23);
  delete(j,b,12);
  end;

Но почему то копирует пустые строки, хотя pos определяется верно. Подскажите, что не так?