Program rysujący w konsoli choinkę

hej, musze narysować choinke (zadanie choinka 2 z main.edu.pl) ale wyskakuje błąd... pomożecie?

  program choinka;
var i, j, w : Integer;
begin
  Write('Ile wierszy? ');
  ReadLn(w);

  for i:=1 to w do
  begin
    for j:=1 to w + i - 1 do
    if j >= w - (i - 1) then
      Write('*')
    else
      Write(' ');

    WriteLn;

         for i:=1 to w do

    for j:=1 to w + i - 1 do
    if j >= w - (i - 1) then
      Write('*')
    else
      Write(' ');

    WriteLn;

end.

powinno wyjść cos takiego

    *
   ***
  *****
 *******
    *
   ***
  *****
 *******
*********

1. Formatowanie kodu: http://4programmers.net/Forum/998482
2. Znaczniki <``code=delphi>Tu kod<``/code>

3. begin musi kończyć się end

  for i:=1 to w do
  begin
    for j:=1 to w + i - 1 do
      if j >= w - (i - 1) then
        Write('*')
      else
        Write(' ');
    WriteLn;
  end;

http://ideone.com/VDlZQW

program ideone;
var y,x,r,w:Integer;
const sign:array[Boolean] of Char = (' ','*');
begin
  Write('Ile wierszy? ');
  ReadLn(w);
  WriteLn;
  for r:=w-1 to w do
  begin
    for y:=0 to r-1 do
    begin
      for x:=1+y-w to 2*y do Write(sign[x>=0]);
      WriteLn;
    end;
  end;
end.