Os primeiros 8 números primos

{Escrever um programa que gera e secreva os primeiros 8 numeros primos.}

Uses CRT;
Var  Numero, VerP, Primo, Pr8Prim: Integer;

Begin
    Pr8Prim := 0;
    Clrscr;
    Writeln('Digite os numeros e o programa mostrara entre eles os 8 que sao primos');
    While True Do
          Begin
              Read(Numero);
              Primo := 0;
              If Numero > 0 Then
                 Begin
                     For VerP := 1 To Numero Do
                         Begin
                             If (numero MOD VerP) = 0 Then
                                Primo := Primo + 1;
                         End;
                     If Primo = 2 Then
                        Begin
                            Writeln('O Numero, ', Numero, ' ‚ primo');
                            Pr8Prim := Pr8Prim + 1;
                        End;
                     If Pr8Prim = 8 Then
                        Break;
                 End;
          End;
    Writeln('Estes foram os 8 Numeros primos encontrados');
    Readkey;
End.