Pascal pomoc so zdrojakom

program N_prvocisel;
uses CRT;
var N, I, PP, PD, C: integer;
begin
ClrScr;
    writeln(‘Zadaj pocet prvocisel: ‘);
    readln(N);

     PP:=0;

     for I:=1 to C do

     if C mod I=0 then PD:=PD+1;

      if PD=2 then
      begin

      writeln(C,‘ ‘);
      PP:=PP+1
end;
until PP=N; %<16,1>
readln;
end.

program noff;
var
N, I, J:integer;
je_prvocislo: boolean;
pocet: integer;
begin
readln(N);
pocet:=0;
I:=1;

writeln('Prvych ', N, ' prvocisel: ');

while (pocet<>N) do
begin
     I:=I+1;
     je_prvocislo:=true;
     pocet:=pocet+1;
     for J:=2 to trunc(sqrt(I)) do
         if (I mod J)=0 then
            je_prvocislo:=false;
     if je_prvocislo then
        writeln(I)
     else
         pocet:=pocet-1;
end;

readln;
end.