raute in delphi als konsolenanwendung

wie kann ich eine raute mit delphi programmieren, das mir das auf einer konsolenanwendung angezeigt wird? bisher habe ich:

begin
  try
  Writeln('Welches Zeichen?');
  Readln(s);
  Writeln('Zeilen?');
  Readln(n);
  x := (n div 2);
  for i := 1 to x do
  begin
    zeile  := '';
    sterne := '';
    leer   := '';
    for j := 1 to ((i*2)-1) do
      sterne := sterne + s;
    for j := 1 to (40-i) do
      leer   := leer + ' ';
    zeile := leer + sterne;
    Writeln(zeile);
  end;
  for l := x+1 to n do

weiter weiß ich aber nicht...ich soll das ganze mit for-schleifen machen. die pyramide hab ich ja nun schon, fehlt mir mein unterteil der raute, kann mir wer helfen?