Triangle

Bonjour

j'ai besoin de votre aide
je veux afficher ce triangle avec la méthode de matrice
*
* *
* * *
* * * *
l'affichage est toujours comme ça :
*
* *
* *
* *
procedure creation(var m:mat;n:integer);
var
i,j:integer;
begin
m[1,n]:='*';
for i:=2 to n do
m[i,n]:='*';
i:=1;
n:=n-1;
repeat
repeat
inc(i);
m[i,n]:='*';
until(i>n);
dec(n);
until(n=1);
end;