Дано пятизначное число. Найти минимальное отношение суммы его цифр к произведению первой и последней цифре — Pascal(Паскаль)

program Ameba;
var
  i, iMin : longint;
  sum, proiz : integer;
  min : real;
begin
  iMin := -1;
  min := 99999;
  for i := 10000 to 99999 do begin
    sum := (i mod 10 + i div 10 mod 10 + i div 100 mod 10 + i div 1000 mod 10 + i div 10000) ;
    proiz := (i mod 10) * (i div 10000);
    if proiz<>0 then
      if  (sum / proiz) < min then begin
         iMin := i;
         min := (sum / proiz);
      end;
    { if x > max then max := x;}
  end;
  WriteLn('Минимальное отношение = ', min:12:6,' при числе ',iMin);
  readln;
end.