Program generujący macierz NxN nie działa prawidłowo

Witam chcę napisać program, który generuje macierz o rozmiarze NxN. Do tej pory skleciłem coś takiego ale po podaniu liczby n wyskakuje mi tylko jeden wiersz tak jakby była to tablica jednowymiarowa.

program asd;
var
t:array of array of Integer;
n, i, j : integer;
begin
writeln('Podaj liczbę n');
readln(n);
SetLength(t, n, n);
for i:=1 to n do
begin
for j:=1 to n do
begin
t[i,j] := random(100);
write(t[i,j], ' ');
end;
writeln;
readln;
end;
  end.

dodanie znacznika <code class="delphi"> - @furious programming

Wstaw sformatowany kod (nie umiesz sam to używaj http://olesio.eu/jcf) w odpowiednie znaczniki, wtedy może ktoś na to spojrzy.

1. Zapoznaj się z pojęciem formatowania
2. Zapoznaj się z poprawną indeksacją tablic

program asd;
var t:array of array of Integer;
var n,y,x: integer;
begin
  Randomize;
  WriteLn('Podaj liczbę n');
  ReadLn(n);
  SetLength(t,n,n);
  for y:=0 to n-1 do
  begin
    for x:=0 to n-1 do
    begin
      t[y,x]:=random(100);
      Write(t[y,x]:3);
    end;
    WriteLn;
  end;
  ReadLn;
end.

http://ideone.com/lM5mEh