Получить все делители числа

Program CHISLA;
uses crt;
var i,k,l,q,p: integer;
begin
clrscr;
writeln('Введите q and p');
readln(q,p);
for i:= 1 to 100 do
begin
k:= q mod i;
if k=0 then
 begin
a:= p mod i;
if a <> 0 then
 writeln(i);
end;
end;
readln;
end;

Program CHISLA;
uses crt;
var p,q,i: integer;
begin
clrscr;
write('p=');readln(p);
write('q=');readln(q);
writeln('Делители числа ',q,' взаимно простые с ',p);
for i:=2 to q do
if(q mod i=0)and(p mod i<>0)
then  write(i,' ');
readln;
end.

Program EX;
uses crt;
const n=100;
type am=array[1..n] of integer;
var  i,j,p,q: integer;
     a: am;
 
function GCD(x,y: integer): integer;
var z: integer;
begin
 while (y>0) do
 begin
 z:= x mod y; x:=y; y:=z;
 end;
 GCD:=x;
end;
 
procedure D(p,q: integer; var a:am);
 var l:integer;
begin
   l:=round(q/2)+1; j:=0;
   for i:=2 to l do
    if (q mod i = 0)and(GCD(i,p)=1) then
    begin
       inc(j); a[j]:=i; write(a[j],' ');
   end;
end;
begin clrscr;
write('q=');readln(q);
write('p=');readln(p);
D(p,q,a);
readln;
end.