Sternchenmuster erstellen

[Uncle Cracker]

Also irgendwie bin ich einfach nur ein bisschen zu grau um mitzubekommen warum das irgendwie nicht geht

Habe jetzt folgendes:

Delphi-Quellcode:

program dreieck_links;
{$APPTYPE CONSOLE}

uses SysUtils;

var
  s, i, x, y, z: Integer;

begin
  Write('Wieviel Sterne: ');
  ReadLn(s);
  WriteLn;
  x := 0;
  z := s;

  for i := 0 to s - 1 do  //Funktion für oberen Teil
  begin
    for y := 0 to z - 1 do
      Write('*');
    x := x + 1;
    z := z - 2;
    if z >= 0 then
    begin
      WriteLn;
      for y := 0 to x - 1 do
        Write(' ');
    end;
  end;

  for i := 0 to s do  //Funktion für unteren Teil
  begin
    for y := 0 to z - 1 do
      Write('*');
    x := x - 1;
    z := z + 2;
    if z <= s then
    begin
      WriteLn;
      for y := 0 to x - 1 do
        Write(' ');
    end;
  end;

  ReadLn;
end.

Also wie gesagt, der obere Teil funktioniert einwandfrei, nur beim unteren Teil kommen irgendwie Leerzeilen dazu (keine Ahnung warum) und es wird nicht ganz das gemacht was ich will (es wird die eine Zeile doppelt ausgegeben).

Hat vielleicht irgendjemand eine Ahnung warum? Es ärgert mich zwar selber, aber ich probiere das jetzt schon seit fast einer Stunde und ich komme nur in kleinen Abständen vorran und jetzt kein bisschen mehr...


Danke UC