Дан символьный файл f. Получить копию файла f в файле q. Это должен быть бинарный файл

Uses crt;
Var f,q:file of char; i:integer; h:char;
Begin
ClrScr; Randomize;
Assign(f,'C:\File1');{берём символьный файл}
ReWrite(f);{открываем(создаём) его для записи}
For i:=1 to 10 do
 Begin
  h:=chr(97+random(26));{генерируем 10 символов}
  Write(f,h);{записываем их в файл}
 End;
Close(f);{закрываем файл}
Reset(f);{открываем его для чтения}
Assign(q,'C:\File2');{второй файл}
ReWrite(q);{создаём второй файл для записи}
For i:=1 to 10 do
 Begin
  Read(f,h);{читаем символы из 1-го файла}
  Write(q,h);{и записываем их во 2-ой}
 End;
Close(f); Close(q);
End.

Uses crt;
Var f,q:file of char; i:integer; h:char;
Begin
ClrScr;
Assign(f,'C:\File1');
ReWrite(f);
Writeln('Input symbols:');
For i:=1 to 10 do
 Begin
  Readln(h);
  Write(f,h);
 End;
Close(f);
Reset(f);
Assign(q,'C:\File2');
ReWrite(q);
For i:=1 to 10 do
 Begin
  Read(f,h);
  Write(q,h);
 End;
Close(f); Close(q);
End.