Trójkąt Pascala

Kod programu rysującego trójkąt Pascala o podanej liczbie wierszy, nie większej od 12. Ograniczenie wynikające z kwestii estetyki, gdyż dla większej liczby wierszy trójkąt nie wygląda jak trójkąt. Choć program poprawnie liczy kolejne elementy n-tego wiersza.

program TrojkatPascala;

uses
    Crt;

var
    i,j, n : integer;
    Wiersz : array[0..12] of integer;

begin
    WriteLn('Podaj liczbe rzedów');
    ReadLn(n); //Wczytujemy liczbe wierszy
    if n > 12 then halt;
     ClrScr;
    for i := 0 to n do
        begin
            Wiersz[i] := 1;
            for j := i - 1 downto 0 do //Liczymy kolejne elementy wiersza  
                begin
                    Wiersz[j] += Wiersz[j - 1];
                end;

            GoToXY((n - i) * 2, WhereY)    ; //Przesuniecie wzgledem wierzcholka
            for j := 0 to i do
                begin
                    Write(Wiersz[j]:3, ' '); //Wypisujemy kolejne elementy
                end;
            WriteLn;
        end;
end.