Найти тройку простых чисел

[Renge]

Вот, значица, программу я написала, и, на удивление, она даже и работает, но соответственно неправильно, то есть выводит неправильный ответ и не один раз. Но с последним я потом попробую разобраться.
Нужно вывести первую тройку простых чисел a,b,c, обаладающую свойством, что a=b^3-c^3. В программе обозначения те же. Первая тройка таких чисел 19, 3, 2.

    WriteLn('');
    b:=2;
    Repeat
      z:=0;
      For i:=1 To b Do 
       Begin
       If (b mod i=0) and (b<>i) and (i<>1) then inc(z); {проверка на простое}
       If (z=0) then
       For c:=1 To b Do
        Begin
        a:=b*b*b-c*c*c; {проверка на соответствие условию}
        z:=0;
        For x:=1 To a Do {проверка на простое}
         Begin If (a mod x=0) and (a<>x) and (x<>1) then inc(z);
         If (z=0) then Begin
                           Write(a:5, b:5,c:5);
                           a1:=0;
                           End
         else inc(b);
         End;
        End;
      End;
    Until (a1=0);

[Step_UA]

У вас пропущена проверка С на простое

    b:=2;
    Repeat
      z:=0;
      For i:=2 To b-1 Do   {проверка на простое}
       If b mod i=0 then inc(z);
      If (z=0) then
       For c:=2 To b-1 Do
        Begin
         For i:=2 To c-1 Do    {проверка на простое}
          If c mod i=0 then inc(z);
         if z=0 then
          begin
           a:=b*b*b-c*c*c;
           For i:=2 To a-1 Do {проверка на простое}
            If a mod i=0 then inc(z);
           If (z=0) then
            Begin
              Write(a:5, b:5,c:5);
              a1:=0
             End;
          End;
         end;
     inc(b);
    Until (a1=0);

[Rin]

Для экономии машинного времени простое число мижно искать таким циклом(i-счетчик, a-проверяемое число):

for i:=2 to a div 2 do

[Step_UA]

Для экономии машинного времени простое число мижно искать таким циклом(i-счетчик, a-проверяемое число):

for i:=2 to a div 2 do

тогда уж так

for i:=2 to trunc(sqrt(a)) do