Текстовый файл Опции

[Anne'ечка]

??? ??? ??? :-[
1)  Имеется текстовый файл. Написать программу, которая создала бы новый файл, в котором строки были бы пронумерованы, начиная с 1.

2)  Имеется текстовый файл. Написать программу, которая создала бы новый файл, в котором каждая строка исходного файла читалась бы наоборот, т.е. 1-ый символ в исходной строке стал бы последним, 2-ой - предпоследним и т.д. Количество срок в файле произвольно.
[img][/img]

[dushik]

;D Долго ржал над этим... (над первой версией, и над последним вопросом Анечки)
Как только я увидел первую "программную версию" (в первые секунды), мне показалось, что это на Бэйсике написанно ;)
Решаюсь выдвинуть свою первую версию решения второй задачи  :-/

Код

uses crt;
const
    name='name.txt';
    name1='name1.txt';
var
  f,f1         :text;
  i,j          :integer;
  s            :string[255];
  ch           :char;
begin
    assign(f,name);
    assign(f1,name1);
    reset(f);
    rewrite(f1);
    while not eof(f) do
          begin
               readln(f,s);
               for i:=length(s) downto 1 do
                   begin
                        write(f1,s[i]);
                   end;
               writeln(f1);
          end;
    close(f);
    close(f1);
    readln;
end.