Exercice 2 Serie Boulifa

{https://media.discordapp.net/attachments/850304726168109067/850306169331122236/unknown.png?width=470&height=643}
Program exercice;
Uses Wincrt;
Type
  mat = Array [1..20,1..20] Of Char;
Var
  m: mat;
  n: Integer;
  f1,f2: Text;

Procedure remplir (Var m:mat;Var n:Integer);
Var
  i,j: Integer;
  ch: String;
  c: Char;
Begin
  Repeat
    Write ('Saisir N: ');
    Readln (n);
  Until (3<=n) And (n<=20);
  ch := '';
  For i:=1 To n Do
    For j:=1 To n Do
      Begin
        Repeat
          c := Chr(Random(26)+65);
        Until (Pos (c,ch)=0);
        m[i,j] := c;
        ch := ch+c;
      End;
  For i:=1 To n Do
    Begin
      Writeln ;
      For j:=1 To n Do
        Write (m[i,j],' | ');
    End;
End;

Procedure traitement (Var f1,f2:Text;m:mat;n:Integer);
Var
  l,i,j: Integer;
  ch,ch1,ch2: String;
Begin
  Rewrite (f1);
  l := n;
  For i:=1 To l Do
    Begin
      ch := '';
      For j:=1 To n Do
        ch := ch+m[i,j];
      For j:=i+1 To l Do
        ch := ch+m[j,n];
      n := n-1;
      Writeln (f1,ch);
    End;
  Close (f1);
  Rewrite (f2);
  Reset (f1);
  While Not (Eof(f1)) Do
    Begin
      Readln (f1,ch);
      ch1 := '';
      For i:=Length(ch) Downto 1 Do
        Begin
          Str (Random(10),ch2);
          ch1 := ch1+ch[i]+ch2;
        End;
      Writeln (f2,ch1);
    End;
  Close (f2);
  Close (f1);
End;

Procedure affiche (Var f:Text);
Var
  ch: String;
Begin
  Reset (f);
  While Not (Eof(f)) Do
    Begin
      Readln (f,ch);
      Writeln (ch);
    End;
  Close (f);
End;
Begin
  Assign (f1,'c:\bac\forme.txt');
  Assign (f2,'c:\bac\crypt.txt');
  remplir (m,n);
  traitement (f1,f2,m,n);
  affiche (f2);
End.