Найти все простые числа, которые являются делителями одновременно m и n - Pascal

function NOD(A, B : Integer) : Integer;
begin
  repeat
    if A > B then
      A := A mod B
    else
      B := B mod A;
  until (A = 0) or (B = 0);
  
  NOD := A + B;
end;
 
procedure DecPrim(var n : Integer; p : Integer);
begin
  Write(#32, p);
  while n mod p = 0 do
    n := n div p;
end;
 
var
  m, n, Q, d : Integer;
begin
  Write('m = '); ReadLn(m);
  Write('n = '); ReadLn(n);
  Q := NOD(m, n);
  if Q = 1 then
    WriteLn('Нет.')
  else
    begin
      Write('Простые делители m и n :');
      if Not odd(Q) then
        DecPrim(Q, 2);
      d := 3;
      while Q > 1 do
        begin
          if Q mod d = 0 then
            DecPrim(Q, d);
          Inc(d, 2);
        end;
    end;
end.