Ошибки при копировании из файла в файл, Найти ошибку. Файл не копируется. Опции

[Natalia]

Доброго времени суток! Помогите найти ошибку в коде, пожалуйста. Вот задание: Создать текстовой файл А, содержащий не менее 10 строк. Написать программу копирования файла А в файл В с добавлением в начало каждой строки её номера.
Вроде понимаю задачу и написала её, но почему-то файл А не копируется в В (У меня вместо А и В Input и Output).

Код

var Input,Output:text;
     s:string;
     k:integer;
  begin
   assign(Input,'Input.txt');
   assign(Output,'Output.txt');
   reset(Input);
   rewrite(Output);
   k:=0;
    while not eof(Input) do
     begin
      read(Input,s);
      if eoln(Input,s) then
       k:=k+1;
       while not eoln(Input) do          
        begin
         write(k);
         write(Output,s);
        end;
     end;
   close(Input);
   close(Output);
  end.