Помогите решить. Найти наибольший делитель. Паскаль.

Если не заниматься оптимизацией алгоритма:

var i,n:longint;
begin
readln(n);
for i:=n-1 downto 1 do if n mod i=0 then break;
writeln('Maximal proper divisor is ',i); readln
end.

P.S. По условию не НОД, а просто наибольший делитель, видимо, собственный, так как каждое число имеет еще самого себя натуральным делителем и считать будет нечего