Паскаль массивы и матрицы.

[shadezx]

Здраствуйте! у меня возник вопрос, по поводу матриц в паскале.
мне нужно зделать триугольник из (*)я зделал только у меня только контура триугольника, а как мне зделать его сплошным, что б внутри были звездочки?

program Project10;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
 m = 3;
 n = 6;
var
a:array[1..n,1..n] of char;
i,j:integer;
begin
for i:=1 to n do
 begin
  for j:=1 to n do
    begin
      if (j=1)or(i=n)or(j=i)  then
      a[i,j]:='*';
      write(a[i,j],' ');
    end;
    writeln;
    end;
    readln;
end.

[VIK_aka_TOR]

const
  m = 3;
  n = 6;
var
  a:array[1..n,1..n] of char;
  i,j:integer;
begin
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          if (j=1)or(i=n)or(j<=i)  then
            a[i,j]:='*';
          write(a[i,j],' ');
        end;
      writeln;
   end;
  readln;
end.

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

p.s. в следующий раз для оформления кода используйте кнопку #
p.p.s. можно все это сделать и без матрицы, лишь визуально представлять "клетки", и в нужное время ставить звездочки или пробелы... удачи...