Warming up (Exercice Matrice)

{https://cdn.discordapp.com/attachments/440593885740269568/831236379735359504/image0.jpg}
Program rev;
Uses Wincrt;
Type
  mat = Array [1..21,1..21] Of Integer;
Var
  m: mat ;
  n: Integer;

Procedure remplir (Var m:mat; Var n:Integer);
Var
  i,j,x: Integer;
Begin
  Repeat
    Write ('Saisir N: ');
    Readln (n);
  Until (3<=n) And (n<=21);
  x := n+1;
  For i:=1 To n Do
    Begin
      x := x-1;
      For j:=1 To n Do
        If (i=j) Or (x=j) Then
          Repeat
            Write ('M[',i,',',j,']: ');
            Readln (m[i,j]);
          Until m[i,j]=0
        Else
          Begin
            Write ('M[',i,',',j,']: ');
            Readln (m[i,j]);
          End;
    End;
End;

Function somme_l(m:mat;l,n:Integer): Integer;
Var
s,j:integer;
Begin
    s:=0;
    for j:=1 to n Do
        s:=s+m[l,j];
    somme_l:=s;
End;

Function somme_c(m:mat;c,n:Integer): Integer;
Var
s,i:integer;
Begin
    s:=0;
    for i:=1 to n Do
        s:=s+m[i,c];
    somme_c:=s;
End;

Procedure traitement (m:mat;n:Integer);
Var
sh,sb,sg,sd:integer;
Begin
  sh := somme_l(m,1,n);
  sb := somme_l(m,n,n);
  sg := somme_c(m,1,n);
  sd := somme_c(m,n,n);
    writeln (sh);
    writeln (sb);
    writeln (sg);
    writeln (sd);
  If (sh=sb) And (sb=sg) And (sg=sd) Then
    Writeln ('La matrice est totalement equilb')
  Else If (sh=sb) Then
         Writeln ('La matrice est plus au moins equilibre')
  Else Writeln ('La matrice n est pas equilibré');
End;
Begin
  remplir (m,n);
    traitement (m,n);
End.