Ввод с клавиатуры и запись в файл, чтение из файла и запись в массив, вывод из массива на экран

Var f:text;
    i,n:integer;
    s:string;
    A:array[1..100] of string;
Begin
    write('Введите кол-во строк для ввода: ');readln(n);
    Assign(f,'a.txt');Rewrite(f);
    For i:=1 to n do
     Begin
      write(i,'-ая строка: ');readln(s);
      writeln(f,s);
     End;
    Close(f);
    writeln('Файл заполнен');
    Assign(f,'a.txt');Reset(f);
    For i:=1 to n do
     Begin
      readln(f,s);
      A[i]:=s;
     End;
    writeln('Вывод содержимого массива');
    For i:=1 to n do
     writeln(A[i]);
    Close(f);
    readln;
End.

Var f:text;
    i,n:integer;
    s:string;
    A:array[1..100] of string;
    c:char;
Begin
    write('Введите кол-во строк для ввода: ');readln(n);
    For i:=1 to n do
     Begin
      write(i,'-ая строка: ');readln(A[i]);
     End;
    writeln('Массив заполнен');
    Assign(f,'a.txt');Rewrite(f);
    For i:=1 to n do
     writeln(f,A[i]);
    Repeat 
    write('Желаете дополнить файл? y/n: ');readln(c);
    if c='y' then 
     Begin
      write('Введите строку: ');readln(s);
      writeln(f,s);
     End;
    Until c='n';
    Close(f);
    Assign(f,'a.txt');Reset(f);
    writeln('Вывод файла');
    While not Eof(f) do
     Begin
      readln(f,s);
      writeln(s);
     End;
    Close(f);
    readln;
End.