Напишите программу, которая для любого входного текстового файла создаёт текстовый файл с повторением каждой строки.
Программа вроде рабочая да вот я не могу её вывести в текстовый файл как-то криво получается, выдаёт ошибку. Объясните, подскажите в чём ошибка
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.