Написать программу в Паскале решения ребуса Аист*4=стая. Помогите пожалуйста)!

O__o var i, s: Integer; beginfor i: =1000 to 9999 do if (i*4 >=1000) and (i*4 <= 9999) then begin s: =i*4; if (i mod 100) div 10=(s div 1000) then if (i mod 10)=(s mod 1000) div 100) then if (i div 1000=(s mod 100) div 10) then if (i mod 1000 div 100) <> i div 1000) and (i mod 1000 div 100) <> (i mod 100) div 10) and (i mod 1000 div 100) <> i mod 10) then if (s mod 10 <> s div 1000) and (s mod 10 <> (s mod 1000) div 100) and (s mod 10 <> (s mod 100) div 10) then Writeln (i, '=', i*4); end; Readln; end.