Pascal: Kiểm tra xem số vừa nhập có phải là số tự mãn hay không? không quá 5 số. xin code pascal giúp

uses crt, math;
var N, x, S, i, K  : longint;

begin
clrscr;
write('Nhap so N = '); readln(N);

x := 1; K := N;
while N >= 10 do
    begin
        N := N div 10;
        x := x + 1;
    end;

N := K; S := 0;
while N > 0 do
    begin
        i := N mod 10;
        S := S + i ** x;
        N := N div 10;
    end;

if K = S then write(K, ' la so tu man')
else write(K, ' khong la so tu man');
readln
end.