bahasa pemrograman pascal faktor prime bilangan bulat (repeat until)

program  faktor_prime_bilangan_bulat ;
uses crt ;
var      n, p, q : integer ;
begin
         clrscr ;
         write('Input satu bilangan : '); readln(n);
         writeln('Faktor primenya adalah : ');
         p := 2 ;
         q := 1 ;
         repeat
         begin
              repeat
              begin
                   p := p+q ;
                   q := 2 ;
              end;
         until n mod p = 0 ;
         write(p);
         n := n div p ;
         end ;
         until n = 1 ;
         readln;
end.