Составить программу, проверяющую, является ли заданное число совершенным, т.е. равным сумме своих делителей, кроме самого числа — Pascal(Паскаль)

uses crt;
var c,s,x:integer;
    i,j:byte;
BEGIN
s:=0;
readln(x);
for i:=1 to 234 do
for j:=1 to 234 do  begin
if (x div i=j)And(x mod i=0)AND(x div x<>i) then s:=s+j;
 end;
if (x=s) then   Writeln('совершенно') else   Writeln('не совершенно');
END.