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

Частично я уже написал:

Programm Dev;
 

 var a,c:text;
      name,name1:string;
      m:array [1..100] of string;
      n:integer;
 
begin 
 writeln('Имя Файла:'); 
 Readln(name);
 writeln('Имя файла:'); 
 Readln(name1);
  assign(a,name);
  assign(c,name1);
  reset(a);
   m:=1;
  rewrite©;
  while not EOF(a); 
    if (n <= 100) then
     begin
     read(a,m[n]);
     write(m[n]);
     write(c,m[n]);
     inc(n);
     end;
  close(a);
  close(с);
  readln;
end.

.

Конкретно прошу помощи: создать выходной файл, в котором строки идут в обратном порядке, организовать диалоговый цикл для многократного поиска в тексте заданного пользователем символа с выводом номера строки и номера символа в строке.(не прошу написать за меня остаток,просто хочу что бы помогли и объяснили - учусь на заочке( )
Прошу больно не бить так как только начинаю изучать язык и Очень надеюсь на вашу помощь

насчет обратного порядка помоему разобрался:

begin                                                                                                 

for n : = 1 to 100 do
                                          

begin                                                    

MasChar[n] := chr(kod);     
                                                      
for n : = 100  downto  1  do  Write(MasChar[n]);                              

end;

end.