Работа с массивом и текстовыми файлами. Опции

[pt3]

Здравствуйте! Подскажите пожалуйста, пару моментов по следующей задаче:

Разработать программу обработки текстовых файлов. Программа должна выполнить следующие действия: загрузить текст из заданного файла в массив строк, создать выходной файл, в котором строки идут в обратном порядке, организовать диалоговый цикл для многократного поиска в тексте заданного пользователем символа с выводом номера строки и номера символа в строке.

Вот что я сделал:

program dfr;
 const
 N=100;

 var f,j:Text;
     name,name1:string;
     m: array [1..N] of string;
     i: integer;

begin
  writeln('Укажите txt-файл для работы(например: C:\name.txt)'); readln(name);
  writeln('Имя файла:'); readln(name1);
  assign(f,name);
  assign(j,name1);
  reset(f);i:=1;
  rewrite(j);
  while not EOF(f) and (i <= N) do
     begin
     read(f,m[i]);
     write(m[i]);
     write(j,m[i]);
     inc(i)
     end;
  close(f);
  close(j);
  readln;
end.

Так вот, есть два вопроса:

1. Как из массива вывести символы в обратном направлении(в другой файл я смог записать, а вот чтобы буквы были в обратном направлении, не могу сделать).
2.

организовать диалоговый цикл для многократного поиска в тексте заданного пользователем символа с выводом номера строки и номера символа в строке.

как сделать поиск, чтобы программа выводила номер строки и номер символа?

Заранее спасибо.