Операции с Файлами. Есть некий Файл А , нужно получить его копию в Файле В

var f1,f2,f3:file of integer;
    s:integer;
    begin
//----Создаем файл с каким-то целым числом---//
    WriteLn('Введите число которое будет записано в файл:');
    ReadLn(s);
    Assign (f1, 'c:\file1.txt');Rewrite(f1);
    Write(f1,s);
    Close(f1);
    
//---Открываем исходный файл для чтения, и создаем файл который будет копией-//
    Assign (f1, 'c:\file1.txt');Reset(f1);
    Assign (f2, 'c:\file2.txt');Rewrite(f2);
//---Читаем первый файл, и копируем информацию во второй файл---//
    While not eof(f1) do begin
    read(f1,s);
    write(f2,s);
    end;
    Close(f1);Close(f2);
//---Выводим на экран информацию из файла-копии---//
    Assign (f2, 'c:\file2.txt');Reset(f2);
    
    While not eof(f2) do begin
    Read(f2,s);
    WriteLn(s);
    end;
    Close(f2);
end.