Ввести число N, определить является ли оно совершенным — Pascal(Паскаль)

uses crt;
var n,i,k,j:longint;
begin
clrscr;
write('n=');readln(n);
i:=1;k:=0;
while i<=n div 2 do
 begin
  if n mod i=0 then k:=k+i;
  i:=i+1;
 end;
if k=n then write('Совершенное')
else write('Не совершенное');
readln
end.