Devoir de controle 1 (Updated)

Program exerciceessai;
Uses Wincrt;
Type
  date = Record
    jour,mois,an: Integer;
  End;
  produit = Record
    code: Integer;
    nom: String;
    dc: date;
  End;
  tab = Array [1..20] Of produit;
Var
  n: Integer;
  t: tab;
  f: Text;
Procedure creation (Var f:Text);
Begin
  Assign (f,'c:\bac\Test Etude\produit.txt');
End;
Function premier (x:Integer): Boolean;
Var
  i,nb: Integer;
Begin
  nb := 0;
  premier := False;
  For i:=x Downto 2 Do
    If (x Mod i) = 0 Then
      nb := nb+1;
  If nb=1 Then
    premier := True;
End;

Function majuspace (ch:String): Boolean;
Var
  i: Integer;
  test: Boolean;
Begin
  i := 0;
  Repeat
    i := i+1;
    test := Upcase(ch[i]) In ['A'..'Z',' '];
  Until (test=False) Or (i=Length(ch));
  majuspace := test;
End;

Function distinct (t:tab;n:Integer;i:Integer): Boolean;
Var
  test: Boolean;
Begin
  If i=1 Then
    test := True
  Else
    Repeat
      test := t[i].code<>t[i-1].code;
    Until (test=False) Or (i=n);
  distinct := test;
End;

Procedure remplir (Var t:tab;Var n:Integer);
Var
  i: Integer;
  x: String;
  test: Boolean;
Begin
  Repeat
    Randomize;
    n := Random (21);
  Until n>=5;
  Writeln ('L''entier choisi est : ',n);
  For i:=1 To n Do
    With t[i] Do
      Begin
        Repeat
          Write ('Saisir le code du produit ',i,': ');
          Readln (code);
        Until (distinct (t,n,i)) And (premier(code)=False);
        Repeat
          Write ('Saisir le nom du produit ',i,': ');
          Readln (nom);
        Until (majuspace(nom)) And (nom[1]<>' ');
        With dc Do
          Begin
            Repeat
              Write ('Saisir le jour de création du produit ',i,':');
              Readln (jour);
            Until jour<=31;
            Repeat
              Write ('Saisir le mois de création du produit ',i,':');
              Readln (mois);
            Until mois<=12;
            Repeat
              Write ('Saisir l''an de création du produit ',i,':');
              Readln (an);
              Str (an,x);
            Until Length(x)=4;
          End;
      End;
End;
Procedure affiche (t:tab;n:Integer);
Var
  i: Integer;
Begin
  Clrscr;
  Writeln ('Les noms des produits dont le nom commence par une voyelle sont:');
  For i:=1 To n Do
    With t[i] Do
      If nom[1] In ['a','e','i','o','u','y'] Then
        Writeln (nom);
End;
Procedure transfert (Var f:Text;t:tab;n:Integer);
Var
  i: Integer;
Begin
  Rewrite (f);
  Writeln (f,'Les produits Contruits 4 ans avant 2020 sont: ');
  Writeln (f,'---------------------------------------------');
  For i:=1 To n Do
    If t[i].dc.an+4=2020 Then
      Begin
        Writeln (f,'Nom: ',t[i].nom);
        Writeln (f,'Code: ',t[i].code);
        Writeln (f,'Date de Creation: ',t[i].dc.jour,'/',t[i].dc.mois,'/',t[i].dc.an);
        Writeln (f,'----------------------');
      End;
  Close (f);
End;
Begin
  creation (f);
  remplir (t,n);
  affiche (t,n);
  transfert (f,t,n);
End.