Exercice 5 #2 Serie Matrice

Program exercice5;
Uses Wincrt;
Type
  mat = Array [1..99,1..99] Of Integer;
  tab = Array [1..99] Of Integer;
Var
  a: mat;
  m,n: Integer;
  t: tab;
Procedure remplir (Var a:mat;Var m,n:Integer);
Var
  i,j: Integer;
Begin
  Randomize;
  Repeat
    Writeln ('Saisir le nombre de ligne');
    Readln (m);
    Readln (n);
  Until (m>0)
        And (n>0);
  For i:=1 To m Do
    For j:=1 To n Do
      a[i,j] := Random (10);
  For i:=1 To m Do
    Begin
      Writeln;
      For j:=1 To n Do
        Write (a[i,j],' | ');
    End;
End;
Function min (Var a:mat;j:Integer;n:Integer): Integer;
Var
  x,i: Integer;
Begin
  x := a[1,j];
  For i:=1 To n-1 Do
    Begin
      If x>=a[i+1,j] Then
        x := a[i+1,j];
    End;
  min := x;
End;
Procedure minmatrice (a:mat;Var t:tab;m,n:Integer);
Var
  i,x: Integer;
Begin
  For i:=1 To n Do
    Begin
      x := min(a,i,m);
      t[i] := x;
    End;
End;

Procedure affiche (t:tab;m:Integer);
Var
  i: Integer;
Begin
  For i:=1 To m Do
    Write (t[i],' | ');
End;
Begin
  remplir (a,m,n);
  minmatrice (a,t,m,n);
    writeln;
    writeln ('Tableau min: ');
  affiche (t,m);
End.