Pascal/Turbo Pascal - Ayuda con un programa de pascal

Se almacena un valor entero no nulo en la variable n. Completar el siguiente programa para que se asigne a la variable k el mayor divisor de n positivo distinto de n. Para n=1 ó n=-1 el mayor divisor es uno.


Me dan lo siguiente
var k,n:integer;
begin {aseguramos que n tiene un valor no nulo}
repeat readln(n) until n<>0;

escribir codigo

writeln('el mayor divisor es',k);
end.