Написать программу копирования содержимого файла в другой файл (оба файла задаются с клавиатуры) — Pascal(Паскаль)

uses crt;
var f1,f2:text;
    s:char;
    s1,s2:string;
begin
ClrScr;
Writeln('Vvedite name file1: ');
Readln(s1);
Assign(f1,s1);
Reset(f1);
Writeln('Vvedite name file2: ');
Readln(s2);
Assign(f2,s2);
Rewrite(f2);
repeat
 Read(f1,s);
 Write(s);
 Write(f2,s);
until eof(f1);
close(f2);
Readln;
end.