Programos patikrinimas [FPS]

Sveiki, FPS kvailioja, sukompiliuoja, bet nepaleidžia, bandžiau ir per kitą userį - same shit. Esmė tame, kad pasirašiau kodą, bet nežinau ar jis geras, ar veikia ir t.t. Na ir šiaip pagal mane, tai viskas gerai atlikta, bet nesu profas šioje srityje :D. Tai, gal atsirastų kas pacheckintų programėlę. Kodas:

program ND;
var m,n,i,j,x,sk,sum,d,kiek:integer;
begin
 WriteLn('Įveskite pradinę ir paskutinę intervalo reikšmę: ');
 ReadLn(m,n);
 for i:= m to n do
   begin
       d:=0;
       for j:=1 to i do
           if i mod j = 0 then d:=d+1;
       if d < 2 then begin
        sk:=i;
        sum:=0;
    while sk > 0 do
        begin
         x:= sk mod 10;
         sum:=sum+x;
         sk:= sk div 10;
        end;
    if sum mod 2<>0 then begin
       write(i,'   ');
       kiek:=kiek+1;
    end;
   end;
 end;
if kiek=0 then writeln('Tokių skaičių nėra!')
else writeln('Tokie skaičiai yra: ', kiek);

 Readln;
end.

O užduotis būtų tokia, kad reikia atspausdinti natūraliuosius skaičius iš pasirinkto intervalo, kurie nėra pirminiai ir kurių daliklių suma nėra lyginė iš anksto dėkoju, jei atsiras žmogus, kuris padės patikrinti šią programą :))).

kiek :=0 prirašyk po pirmo begin. Neinicializuotas kintamasis :)

O ir šiaip, kodas tai belenkaip sumaltas :D susiformatuot reiktų tvarkingai

kiek :=0 prirašyk po pirmo begin. Neinicializuotas kintamasis :)

 

O ir šiaip, kodas tai belenkaip sumaltas :D susiformatuot reiktų tvarkingai

Beginners goals dėl sumalimo :D. Btw gal gali paaiškinti kaip suprasti: "Neinicializuotas". Šitame kontekste?:D