Bac 2014 (Rework)

Program bac2014;
Uses Wincrt;
Type
  mat = Array [1..10,1..10] Of Integer;
Var
  f: Text;
  n,m: Integer;
  t: mat;
Procedure remplir (Var t:mat;Var n,m:Integer);
Var
  i,j: Integer;
Begin
  Repeat
    Writeln ('Saisir le nombre de ligne');
    Readln (n);
    Writeln ('Saisir le nombre de colonne');
    Readln (m);
  Until (1<=n) And (n<=10) And (3<=m) And (n<=10);
  For i:=1 To n Do
    For j:=1 To m Do
      Begin
        Write ('T[',i,',',j,']: ');
        Readln (t[i,j]);
      End;
End;
Procedure transfert (Var f:Text;t:mat;n,m:Integer);
Var
  i,j: Integer;
Begin
  Assign (f,'c:\bac\Fnombre.txt');
  Rewrite (f);
  For i:=1 To n Do
    For j:=1 To (m Div 2) Do
      Begin
        Writeln (f,Abs(t[i,j]-t[i,m-j+1]));
      End;
  Close (f);
End;

Procedure traitement (Var f:Text);
Var
  t: Array [1..50] Of Integer;
    s,i,r,n,j:integer;
Begin
  Reset (f);
    n:=0;
  While Not (Eof(f)) Do
        Begin
            n:=n+1;
            readln (f,t[n]);
        end;
    i:=1;
    Repeat
        r:=t[i]-t[i+1];
        i:=i+1;
        s:=2;
        while (t[i]-t[i+1]=r) and (i<n) Do
            begin
                i:=i+1;
                s:=s+1;
            end;
        if (s>3) Then
            begin
                writeln (s);
                for j:=i-s+1 to i Do
                        write (t[j],', ');
                writeln ('est une suite arithmétique de raison ',r);
            end;
    Until (i>n-1);

End;
Begin
  remplir (t,n,m);
  transfert (f,t,n,m);
  traitement (f);
End.