Строки, В чём ошибка Опции

[vadim(b)]

Задание:
Напишите программу, которая для любого входного текстового файла создаёт текстовый файл с повторением каждой строки.
Программа вроде рабочая да вот я не могу её вывести в текстовый файл как-то криво получается, выдаёт ошибку. Объясните, подскажите в чём ошибка

 const
 n = 1000;
var
txt: array[1 .. n] of string;
 s,t,y: string;
 i, curr, prev: integer;
 f,g:text;
 begin
assign(f,'gg.txt');
   reset(f);

 s := '';
 for i := 1 to n do
   begin
     readln(f,txt[i]);
     curr := 1;
     s := s + txt[i];
     while true do
       begin
         prev := curr;
         curr := prev + pos(#32, copy(s, curr, 255));
         if curr = prev then break
         else
           if curr > 20 then
             begin
              assign(g,'1.txt');
               reset(g);
              curr := prev;
               delete(s, 1, pred(curr)); curr := 1;
               t:=(copy(s, 1, pred(curr)));
               y:=(copy(s, 1, pred(curr)));
               writeln(g,t);
               writeln(g,y);
             end
       end;
     s := s + ' ';


   end;
readln;
end.

[мисс_граффити]

а зачем такие сложности? (или я задание не поняла...)
пока не конец файла делать
считать строку из первого файла
записать во второй
записать во второй