Giúp mk với ạ ,mình đang cần gấp ,Lập trình trên Pascal nha

uses crt ;
var  n , i: longint ;
     snt : array[0..1000000] of boolean ;

procedure sangnt ;
var i,j:longint;
begin
        fillchar(snt,sizeof(snt),true);
        snt[0] := false ; snt[1] := false ;
        i :=  2 ;
        while ( i <= sqrt(n)) do
        begin
                while ( snt[i] = false) do inc(i);
                for j:=2 to n div i do snt[i*j] := false ;
                inc(i) ;
        end;
end;

begin
clrscr;
        write( ' N = ') ; readln(n) ;
        sangnt;
        for i:=2 to n div 2 do
                if ( ( snt[i] = true) and ( snt[n-i] = true) and ( i <> (n-i))) then
                        writeln( i , ' ' , n - i ) ;
        readln
end.