Exercice 1

program ex1;
uses wincrt;
type
    tab = array[1..30] of string;
var
   n,n2:integer;
   t1, t2 : tab;
procedure saisie(var n : integer);
begin
     repeat
           write('Entrez N : ');
           readln(n);
     until (n in [5 .. 30]);
end;

procedure remplir(var t1 : tab; n: integer);
var
   i : integer;
begin
     for i := 1 to n do
          repeat
                write('Entrez T[',i,'] : ');
                readln(t1[i]);
          until (t1[i] <> '');
end;

procedure transfere(var t2:tab; t1:tab; n: integer; var n2:integer);
var
   i,j:integer;
begin
     j := 0;
     for i := 1 to n do
     begin
          if ((t1[i][1] in ['A'..'Z']) and (length(t1[i]) > 5)) then
          begin
               j := j +1;
               t2[j] := t1[i];
          end;
     end;
     n2 := j;
end;

procedure affiche(t2:tab; n2 : integer);
var i : integer;
begin
     for i := 1 to n2 do
         writeln('T2[',i,'] : ', t2[i]);
end;

begin
     saisie(n);
     remplir(t1,n);
     transfere(t2,t1,n,n2);
     affiche(t2,n2);

     readln;
end.