Diviseurs communs de A et B

Le but de l'exercice est de saisir deux entiers vérifiant 5 < A < B, et de construire un tableau DVC qui contient les diviseurs communs de A et B.

Il est clair que le tableau contient toujours au moins le nombre "1" ...

Une tentative de solution ... et à vous de commenter!

Code:

program diviseurs;
uses wincrt;

type
  tab =array[1..100] of integer;



procedure saisie(var a,b:integer);

begin

  {saisie de a}
  repeat
    write('donner a: ');
    readln(a);
  until(a>=5);

  {saisie de b}
  repeat
    write('donner b (superieur à ',a,'): ');
    readln(b);
  until(b>=a);

end;


procedure remplirdvc(a,b:integer;var dvc:tab;var n:integer);
var  i:integer;

begin
  n:=0;
  for i:=1 to a do
    if (a mod i =0)and(b mod i =0) then
    begin
      n:=n+1;
      dvc[n]:=i;
    end;

end;


procedure afficher(n:integer;t:tab);
var i:integer;
begin
    for i:=1 to n do
    writeln(t[i]);
end;


 

{ ---------------------------------------- }

var
  a,b,n: integer;
  dvc: tab;

begin

  saisie(a,b);

  RemplirDvc(a,b,dvc,n);

  afficher(n,dvc);


end.

Tout est clair