Получить все общие делители заданных чисел

var i,n,m:integer;
begin
readln (n,m);
if n>m then begin
  Inc (n,m);
      m:=n-m;
      Dec (n,m)
end;
write ('1,-1');
For i:=2 to n div 2 do 
 if ((n mod i)=0)and((m mod i)=0) then write (',',i,',',-i);
if (m mod n)=0 then write (',',n,',',-n);
End.

uses crt;
var m,n,x,i:integer;
begin
clrscr;
repeat
writeln('Введите 2 целых числа, отличных от 0:');
readln(m,n);
until(m<>0)and(n<>0);
if abs(m)>abs(n) then
 begin
  x:=abs(m);
  m:=abs(n);
  n:=x;
 end
else
 begin
  n:=abs(n);
  m:=abs(m);
 end;
for i:=1 to m do
if(m mod i=0)and(n mod i=0) then
writeln(i,' ',-i);
readln
end.

to n div 2

var i,n,m:integer;
begin
readln (n,m);
n:=abs(n);
m:=abs(m);
if n>m then begin
  Inc (n,m);
  m:=n-m;
  Dec (n,m)
end;
write ('1,-1');
For i:=2 to n div 2 do 
 if ((n mod i)=0)and((m mod i)=0) then write (',',i,',',-i);
if (m mod n)=0 then write (',',n,',',-n);
End.

var i,n,m:integer;
begin
readln (n,m);
n:=abs(n);
m:=abs(m);
if n>m then begin
  Inc (n,m);
  m:=n-m;
  Dec (n,m)
end;
write ('1,-1');
For i:=2 to n div 2 do 
 if ((n mod i)=0)and((m mod i)=0) then write (',',i,',',-i);
if ((m mod n)=0) and (n<>1) then write (',',n,',',-n);
End.