Разработать программу обработки текстовых файлов. Программа должна выполнить следующие действия: загрузить текст из заданного файла в массив строк, создать выходной файл, в котором строки идут в обратном порядке, организовать диалоговый цикл для многократного поиска в тексте заданного пользователем символа с выводом номера строки и номера символа в строке.
Вот что я сделал:
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.
Заранее спасибо.