помогите исправить вывод

[Spanchik]

Нужно чтобы выводило все элементы от 1 до 10000(n) и только потом выбирало k и всё это выводилось на экран
Построить числовую последовательность и определить, какая цифра стоит в ее k-й позиции. В последовательность должны быть записаны:
Последовательные числа натурального ряда чисел (123456789101112…);

Program z10;
Uses
    Crt;
Const
    n = 10000;
Var
    a: array[1..n] of integer;
    k,t,i,e,s :integer;
    st :string;
    c: char;
    f :text;
Begin
    ClrScr;
    Assign(f,'File.txt');
    Rewrite(f);
      Repeat
        Write('k=');
        Readln(k);
      Until (k>0)and(k<=n);
      Writeln(f,k);
      t:=0;
      s:=0;
      Repeat
        inc(t);
        Write(f,t);
        str(t,st);
        s:=s+length(st);
      Until (s>=k);
{-----}
    Reset(f);
      t:=1; s:=0; st:=''; k:=0;
      While not eof(f) do
        begin
          if (t=1) then
            begin
              Readln(f,st);
              val(st,k,e);
              t:=2
            end;
          Read(f,c);
          val(c,i,e);
          a[t-1]:=i;
          inc(t);
        end;
{-----}
      for i:=1 to t-2 do
        Begin
          if (i=k) then TextColor(5) else TextColor(2);
          write(a[i]);
        End;
      TextColor(7);
      Writeln; Writeln('a[k]=',a[k]);
    Append(f);
      Writeln(f,''); Writeln(f,'a[k]=',a[k]);
    Close(f);
    Readkey;
End.

[Poma][a]

Дарю.. тыц

[Spanchik]

Спасибо конечно, но если честно ничего не понимаю.. скажите пожалуйсто просто как вывести все элементы