Найти все симметричные четырёхзначные числа. Вводится число K вычесть все делители числа через запятую — Pascal(Паскаль)

var
 i:integer;
begin

 for i:=1001 to 9999 do
  if (i div 1000=i mod 10) and (i div 100 mod 10=i div 10 mod 10)
    then write(i,',');

end.