Создать символьный файл f. Получить копию файла в текстовом файле g — Pascal(Паскаль)

Programm SimFail;
uses crt;
var 
f,f1:file of Char;
i,j:integer;
s:string;
begin
clrscr;
writeln('Sozdaem fail');
assign(f, 'c:\f.txt');
rewrite(f);
{Zapolnenie faila F}
for i:=1 to 100 do {kol-vo strok}
begin
randomize;
s:='';
for j:=1 to random(200)+10 do  {kol-vo simvolov v stroke}
s:=s+chr(random(50)+50; {sluchainae simvoli}
writeln (f,s);
end;
writeln('ok');
writeln('Kopiruem F v G');
{Kopia F v G}
reset(f)
assign(f1, 'c:\g.txt');
rewrite(f1);
while not eof(f) do
begin
readln(f,s);
writeln(f1,s);
end;
writeln('ok');
write('Press Enter to Continue');
readln;
end.