Problem z programem sortującym liczby wprowadzone z klawiatury

Proszę o pomoc przy programie któremu podajemy na początku liczby, on wczytuje je do tablicy następnie sortuje i wypisuje je uporządkowane. Po tym podaję kolejną liczbę (jedną) ona dodaje się do tablicy i sortuje się wśród innych. Napisałem tyle programu i proszę o korektę ponieważ nie mogę podać na początku liczb..

program liczby;
uses crt;

const
  max = 100;
var
  i, j, n, poz: integer;
  t: array [1 .. max] of integer;
begin
  writeln('Podaj elementy tablicy');

  for i := 1 to n do
    read(t[i]);

  for i := 2 to n do
  begin
    j := i;

    while (j > 1) and (t[j - 1] > t[j]) do
    begin
      poz := t[i];
      t[i] := t[j - 1];
      t[i - 1] := poz;
      j := j - 1;
    end;
  end;

  writeln('Uporzadkowana tablica: ');

  for i := 1 to n do
    write(t[i]:3);

  writeln('Podaj dodatkowy element tablicy');
  readkey;
end.

Z góry dzięki za pomoc.

A gdzie przypisujesz wartość do n?

@luckiblue - może najpierw wybierz sobie jakiś prosty algorytm sortujący (np. sortowanie bąbelkowe), następnie zapoznaj się z nim dobrze, napisz samo gołe sortowanie na przykładowej tablicy, a następnie jeśli już je zrozumiesz i opanujesz to dopiero wtedy spróbuj je wykorzystać w tym programie; Tylko napisz sobie najlepiej osobną procedurę do sortowania, żebyś dwa razy nie pisał dokładnie tego samego.