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

[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.

[volvo]

Эта программа вообще не компилируется... А смысла производимых действий я уловить не смог... Вот так должно работать:

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
    readln(Input,s);
    k:=k+1;
    writeln(output, k, ' ' + s);
  end;
  close(Input);
  close(Output);
end.

[Natalia]

Спасибо большое. Это было последнее задание из серии, по-идее оно должно было быть самым сложным, поэтому что-то перемудрила))