Функция y = f(x, a). Найти произведение отрицательных значений функции, кратных 3

uses crt;
function f(x,a:real):real;
begin
f:=-x*x+a
end;
var x1,x2,x3,x,a1,a2,a3,a,y,p:real;
    n,i,k,q:integer;
begin
clrscr;
write('x1=');
readln(x1);
repeat
write('x2>',x1:0:1,' x2=');
readln(x2);
until x2>x1;
repeat
write('x3<',x2-x1:0:1,' x3=');
readln(x3);
until x3<x2-x1;
write('a1=');
readln(a1);
repeat
write('a2>',a1:0:1,' a2=');
readln(a2);
until a2>a1;
repeat
write('a3<',a2-a1:0:1,' a3=');
readln(a3);
until a3<a2-a1;
n:=round((x2-x1)/x3);
p:=1;
k:=0;
q:=0;
for i:=0 to n do
 begin
  x:=x1+x3*i;
  a:=a1;
  while a<a2+a3/2 do
   begin
    y:=f(x,a);
    writeln('x=',x:5:1,' a=',a:5:1,' f=',y:5:1);
    k:=k+1;
    if k mod 20=0 then
     begin
      write('Press Enter');
      readln
     end;
    if(y<0)and(frac(y)=0)and(trunc(y)mod 3=0)then
     begin
      q:=1;
      p:=p*y;
     end;
   a:=a+a3;
  end;
 end;
if q=0 then write('Отрицательных значений кратных 3 нет')
else write('Произведение отрицательных значений кратных 3=',p:0:0);
readln
end.

for i:=0 to n do//по х for
 begin
  x:=x1+x3*i;
  a:=a1;
  while a<a2+a3/2 do//по а while
   begin