help me pls s pascalom

program Project2;
var I,J,poc,sucet:Integer;
begin
poc:=0;
  for I:=100 to 999 do begin
    J:=I;
    sucet:=0;
    sucet:=j mod 10;
    j:=j div 10;
    sucet:=sucet+(j mod 10);
    j:=j div 10;
    sucet:=sucet+j;
    if sucet=12 then begin
      writeln(I);
      inc(poc);
    end;
    if poc=25 then begin
      write('Vo vypise pokracujte stlacenim klavesy ENTER...');
      readln;
      poc:=0;
      end;
  end;
end.

{
Napiste program, ktory vygeneruje a vypise na obrazovku vsetky trojciferne
cisla s cifernym suctom 12, po kazdom 25. riadku vypis pozastavi aby si ho
uzivatel mohol prezriet a po stlaceni klavesy sa bude pokracovat
}


Program Matura4;
Uses Crt;
Var c1, c2, c3,
    i : integer;
Begin
ClrScr;
{ Writeln ('Vsetky trojciferne cisla s cifernym suctom 12:'); }
For c1:= 1 To 9 Do
Begin
     For c2:= 1 To 9 Do
     Begin
          For c3:= 1 To 9 Do
          Begin
               If c1+c2+c3 = 12 Then
               Begin
                    Writeln(c1,c2,c3);
                    i := i + 1;
                    If i mod 24 = 0 Then
                       Begin
                            Readkey;
                       End;
               End;
          End;
     End;
End;

Readkey;
End.