Построение треугольника с основанием N

[owl1n]

Доброго времени суток, прошу помощи. Такой вопрос, каким образом изобразить треугольник в паскаль, если нам известна основа треугольника (N), треугольник сплошь из звездочек.

Делал наброски, ничего не выходило, делал примерно вот так:

program treygn;
uses crt;
var n,k,z,s:integer;
begin
write('vvedite kolichestvo * : '); readln(n);
for k:=1 to n+(n-2) do begin
    z:=n-k;
    write('*');
    if k=n then begin
       writeln;
       z:= (z - 2);
       for s:=1 to z do begin
       write(' *');
               if s=z-1 then begin
               write('* ');
               writeln; end;
       end;
    end;
end;
readln;
end.

Выходили всего лишь две линии, первая основа - равна N, вторая линия - равна N-2 звездочек, дальше ничего не выходит, хотя по циклу должно работать. Можете подправить или что то подсказать? Буду благодарен.

[Mad_Cat]

for i:= 1 to n do begin
for j:=1 to i do
write('*');
writeln;
end;