Помогите найти ошибку

[lubafffka]

uses crt;
var f1,f2:text;
    ch:char;
    str,name1,name2:string;
    i:integer;
begin
writeln ('Введите имя исходного файла');
 readln (name1);
 assign (f1,name1);
 rewrite (f1);
 writeln ('Введите символы ');
 while str<>'*' do
  begin
   readln (str);
   writeln (f1,str);
  end;
  writeln ('Введите имя заполняемого файла');
 readln (name2);
 assign (f2,name2);
 rewrite (f2);
 reset (f1);
 while not eof(f1) do
  begin
   write (f2,'  ');
   for i:=1 to 3 do
    begin
     read (f1,ch);
     write (f2,ch,'   ');
    end;
   writeln (f2);
   write (f2,' ');
   for i:=1 to 6 do
    begin
     read (f1,ch);
     write (f2,ch,' ');
    end;
   writeln (f2);
   write (f2,'');
   for i:=1 to 4 do
    begin
     read (f1,ch);
     write (f2,ch,'   ');
    end;
   writeln (f2);
   write (f2,' ');
   for i:=1 to 6 do
    begin
     read (f1,ch);
     write (f2,ch,' ');
    end;
   writeln (f2);  close(f1); close(f2);
  end;
end.

Создать файл, записать в него текст не менее 20 символов вывести их в другой файл в виде:
1________1_____
_1______1_1_____
__1____1___1____
___1__1_____1___
____1________1__

[alex_fcsm]

uses crt;
var f1,f2:text;
ch:char;
str,name1,name2:string;
i,n,p:integer;
begin
clrscr;
name1:='c:\1.txt';
assign (f1,name1);
rewrite (f1);
writeln ('Введите символы ');
n:=0;
while str<>'*' do
begin
readln (str);
writeln (f1,str);
inc(n);
end;
close(f1);
assign(f1,name1);
name2:='c:\2.txt';
assign (f2,name2);
rewrite (f2);
reset (f1);
while not(eof(f1)) do
 begin
  for i:=1 to n do
   if i mod 8 = 1 then begin
                         readln(f1,ch);
                         write(f2,ch);
                       end
           else write(f2,'_');
   writeln(f2);
   for i:=1 to n do
   if (i mod 8 = 2)or(i mod 8 = 0) then begin
                         readln(f1,ch);
                         write(f2,ch);
                       end

           else write(f2,'_');
   writeln(f2);
   for i:=1 to n do
   if i mod 4 = 3 then begin
                         readln(f1,ch);
                         write(f2,ch);
                       end
           else write(f2,'_');
   writeln(f2);
     for i:=1 to n do
   if (i mod 8 = 4)or(i mod 8 = 6) then begin
                         readln(f1,ch);
                         write(f2,ch);
                       end
            else write(f2,'_');
   writeln(f2);
     for i:=1 to n do
   if i mod 8 = 5 then begin
                         readln(f1,ch);
                         write(f2,ch);
                       end
            else write(f2,'_');
   writeln;
 end;
 close(f1);
 close(f2);
end.