Запись строк в текстовый файл в цикле при некотором условии

for i:=1 to n do
read(p);  
case p of
           1:begin
                  k:=0;
                  Assign(f,'1.txt');
                  reset(f);
                   repeat
                    k:=k+1;
                    readln(f,buf[i]);
                   until k=1;
                    Assign(ff,'3.txt');
                  rewrite (ff); append(ff);
                    writeln(ff,buf[i]);
                    close(ff);
             end;
 
          2: begin
                  k:=0;
                  Assign(f,'1.txt');
                  reset(f);
                   repeat
                    k:=k+1;
                    readln(f,buf[i]);
                   until k=2;
                    Assign(ff,'3.txt');
                    rewrite (ff);
                    append(ff);
                    writeln(ff,buf[i]);
                    close(ff);
              end;
          end;

                    repeat
                    k:=k+1;
                    readln(f,buf[i]);
                   until k=1;

var
f1,f3:text;
a:array[1..100]of string;
i,p,t,k,st:integer;
 
begin
writeln('skolko strok budem zapisyvat?');
readln(p);
assign(f1,'input.txt');
reset(f1);
while not eof(f1)do
begin
inc(k);
readln( f1,a[k]);
end;
close(f1);
assign(f3,'output.txt');
rewrite(f3);
for i:=1 to p do
begin
writeln('kakuyu stroku zapisat?');
readln(st);
writeln(f3,a[st]);
end;
close(f3);
end.