Подскажите где ошибка?

[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);
  end;
end.

[alex_fcsm]

Условие какое?

[lubafffka]

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