найдите ошибку pascal

программа должна выводить все простые делители числа x
((простым является число которое делится нацело только на себя и на 1))

var x,i1,i2,d:integer;
begin
read(x);
for i1:=1 to x do
if x mod i1=0 then
for i2:=1 to i1 do
begin
if i1 mod i2 = 0 then d:=d+1;
if d=2 then writeln (i1);
d:=0;
end;
end.