Membentuk Segitiga bintang dengan pascal

program segitiga_bintang;
{membentuk segitiga bintang dengan tinggi segitiga=n}
uses crt;
var
   n,i,j : integer;
begin
clrscr;
     write('Tinggi segitiga n = ');
     readln(n);
     {buat bagian segitiga dari baris 1 hingga n}
     for i:=1 to n do
         begin