Уважаемые программисты помогите plz!, задача на копирование Опции

[liz]

Уважаемые программисты помогите пожалуйста! Составить программу копирования файла с текстом программы с одного диска на другой с заменой имени. Имена входного и выходного файлов и имена дисковых устройств должны запрашиватся у пользователя. В процессе копирования программа должна подсчитывать количество строк в исходном файле.

[Ozzя]

reset(f1, name1);
rewrite(f2,name2);
kolvo:=1;
while not eof(f1) do
  begin
     readln(f1,s);
     writeln(f2,s);
     inc(kolvo);
  end;
close(f1);
close(f2); 

[Ozzя]

Глюк, что ли?
Ответов 0, а мой ответ присутствует