Нахождение искомой последовательности в файле Delphi 7

[Petrovskiy]

Имеется задание программы.

"Написать программу выполняющий вывод текста в обратном порядке элементов начиная с искомой последовательности"

С преподавателем поговорил он мне разъяснил все более подробно.
По грамма должна искать в текстовом файле искомую последовательность последовательности записаны в столбец. Вывод сделать во второй текстовый файл.
На этом форуме нашёл файл с программой по нахождению заданной последовательности

procedure TForm1.Button2Click(Sender: TObject);
begin
opendialog1.Execute;
edit2.Text:=opendialog1.FileName;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
     s:string;
begin
memo1.Lines.LoadFromFile(edit2.Text);
for i:=0 to (memo1.lines.count-1) do
begin
 if pos (edit1.Text,memo1.Lines[i])<>0 then
 s:=s+' '+inttostr(i+1);
end;
showmessage('Данный текст найден в строках: '+s);
end;

помогите дописать программу