Giúp mình với Mn.Cảm ơn nhiều

uses crt;
Var n,i,j,t,s: longint ;
    kt: boolean;
begin
    clrscr;
    read(n); t:= 0;
    write('Cac uoc: ');
    For i := 1 to n do 
        If n mod i = 0 then 
            begin
                Write(i,' ');
                t:= t + i ;
            end;
    Writeln;
    If n mod 2 <> 0 then 
        begin
            Write('Cac so nguyen to la:');
            For i := 2 to n do 
                begin
                    kt:= true;
                    For j := 2 to trunc(sqrt(i)) do 
                        If i mod j = 0 then
                            begin
                                kt:= false;
                                break;
                            end;
                    If kt = true then Write(i,' ');
                end ;
         end 
    else 
        begin
            Write('Cac so hoan hao la: ');
            For i := 2 to n do 
                begin
                    s:= 0;
                    For j := 1 to i-1 do 
                        If i mod j = 0 then 
                            s:= s + j ;
                    If s = i then write(i,' ');
                end ;
        end ;
    writeln ;
    writeln('Tong uoc la: ',t);
    readln ;
end .