Triangle de pascal Normal

Program x;
Uses Wincrt;
Type
  mat = Array [1..20,1..20] Of Integer;
Var
  m: mat;n:integer;

Procedure saisir(Var n:Integer);
Begin
  Repeat
    Writeln('Saisir N  = ');
    read(n);
  Until (n>0);
End;
Procedure remplir(n:Integer;Var m:mat);
Var
  i,j: Integer;
Begin
  For i:=1 To n Do
    For j:=1 To i Do
      If (i=j) Or (i=1) Then
        m[i,j] := 1
      Else
        m[i,j] := m[i-1,j]+m[i-1,j-1];
End;
Procedure affiche(n:Integer;m:mat);
Var
  i,j: Integer;
Begin
  For i:=1 To n Do
    Begin
      For j:=1 To i Do
        Write(m[i,j]:4);
        Writeln;
    End;
End;
Begin
  saisir(n);
  remplir(n,m);
  affiche(n,m);
End.