Bac 2014

Program bac2014;
Uses Wincrt;
Type
  mat = Array [1..10,1..10] Of Integer;
Var
  v: mat;
  m,n,i,j: Integer;
    f:text;
Procedure remplir (Var v:mat;Var n,m:Integer);
Begin
  Repeat
    Write ('Saisir le nombre de ligne n : ');
    Readln (n);
    Write ('Saisir le nombre de collone m : ');
    Readln (m);
  Until (1<=n) And (n<=10) And (3<m) And (n<=10) And (m Mod 2=0);
  For i:=1 To n Do
    For j:=1 To m Do
      Begin
        Write ('V[',i,',',j,'] : ');
        Readln (v[i,j]);
      End;
  For i:=1 To n Do
    Begin
      Writeln;
      For j:=1 To m Do
        Write(v[i,j],' | ');
    End;
End;
Function diff (v:mat;i,j,m:Integer):integer;
Var
  x,g,x1: Integer;
Begin
    x:=v[i,j]-v[i,m-j+1];
      If x<0 Then
    x := x*(-1);
  diff := x;
End;
Procedure transfert (Var f:Text;v:mat;n,m:Integer);
Var
i,j,x:integer;
Begin
    assign (f,'C:\bac\prog\Bac etude\test.txt');
    rewrite (f);
    For i:=1 To n Do
    For j:=1 To m Do
            begin
            x := diff(v,i,j,m);
            writeln (f,x);
            end;
            close (f);
End;
Begin
  remplir (v,m,n);
  transfert (f,v,m,n);
End.