Удвоить каждый элемент файла f1 через запятую и результат записать в файл f2

 type TFile = file of integer;
      TFile2 = file of char;
 var f1: TFile;
     f2: TFile2;
     i, n, tmp: integer;
     ch, del: char;
     s: string;
 
 
 begin
  AssignFile(f1, '111');
  AssignFile(f2, '222');
  rewrite(f1);
  readln(n);
  for i := 1 to n do
   begin
    tmp := random(10);
    write(f1, tmp)
   end;
   CloseFile(f1);
   Reset(f1);
   rewrite(f2);
   while not eof(f1) do
    begin
      read(f1, tmp);
      Str(tmp,s);
      for i := 1 to length(s) do
       begin
        ch := s[i];
        del := ',';
        write(f2, ch,del,ch,del);
       end;
    end;
    CloseFile(f1);
    CloseFile(f2);
    Reset(f2);
    while not eof(f2) do
     begin
       read(f2, ch);
       write(output, ch)
     end;
     readln
  end.

uses crt;
type stroka=string[10];
var f1:file of integer;
    f2:file of stroka;
    a,i:integer;
    s,s1:stroka;
begin
clrscr;
assign(f1,'int');
rewrite(f1);
assign(f2,'str');
rewrite(f2);
writeln('Введите в файл целые числа, окончание ввода 0:');
repeat
readln(a);
if a<>0 then write(f1,a);
until a=0;
clrscr;
writeln('Содержание исходного файла:');
reset(f1);
for i:=0 to filesize(f1)-1 do
 begin
  read(f1,a);
  write(a,' ');
  str(a,s1);
  s:=s1+',';
  a:=a*2;
  str(a,s1);
  if i<filesize(f1)-1 then s:=s+s1+','
  else s:=s+s1;
  write(f2,s);
 end;
close(f1);
writeln;
writeln;
writeln('Содержание полученного файла:');
reset(f2);
while not eof(f2) do
 begin
  read(f2,s);
  write(s);
 end;
close(f2);
readln
end.

for i:=0 to filesize(f1)-1 do
 begin
  read(f1,a);
  write(a,' ');
  a:=a*2;
  str(a,s);
  if i<filesize(f1)-1 then s:=s+','
  write(f2,s);
 end;