帮个忙，看我的程序那里错了

帮个忙，看我的程序那里错了。  
 要求找出符合（ab+cd）(ab+cd)=abcd的4位数。下面是我写的程序，怎么运行以后不输出符合条件的数字呢？

var
  a,b,c,d,i,t:longint;

begin
  for i:=1000 to 9999 do
  begin
  a:=i div 1000;
  b:=i mod 1000 div 100;
  c:=i mod 1000 mod 100 div 10;
  d:=i mod 10;
  t:=sqr(a*b+c*d);
  if t=i then
  writeln(i);
  end;
  readln;
end.