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

[Anne'ечка]

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

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

[trminator]

Вот мой вариант... а то побьют ведь ее за goto +) да и модуль СТРИНГОЖУЙ вряд ли входит в универскую программу +)

Код

program strings01;
var s: string;
   i: integer;
   in_f, out_f : text;
begin
   write('Enter filename to read > '); readLn(s);
   assign(in_f,s); reset(in_f);

   write('Enter filename to write > '); readLn(s);
   assign(out_f,s); rewrite(out_f);

   i:=1;
   while not EOF(in_f) do
   begin
       readLn(in_f,s);
       writeLn(out_f, i:5,' ', s);
       inc(i)
   end;
   close(in_f); close(out_f);
end.