First Program i made

Program revision;
Uses Wincrt;
Type
  tab = Array [1..20,1..20] Of Integer;
    tab2= array [1..9] of Integer;
Var
  L,C: Integer;
  T: tab;
    M:tab2;

Procedure remplir (Var L,C:Integer;Var T:tab);
Var
  i,j: Integer;
Begin
  Repeat
    Writeln ('Saisir L et C');
    Readln (L,C);
  Until L And C In [5..20];
  For i:=1 To L Do
    For j:=1 To C Do
      Begin
        Repeat
          Readln (T[i,j]);
        Until T[i,j]>0
      End;
End;

Procedure tri (L,C:Integer;Var T:tab);
Var
M:tab2;
i,j,X,N:Integer;
Begin
M[i]:=0;
for i:=1 to L do
for j:=1 to C Do
X:=T[i,j];
if X=i then
M[i]:=M[i]+1;
N:=N+1;
end;
Procedure afficher (L,C:integer;Var M:tab2);
Var
i,N:Integer;
Begin
for i:=1 to N Do
writeln (M[i]);
end;
Begin
remplir (L,C,T);
tri (L,C,T);
afficher (L,C,M);
end.