Составить программу, которая находит наибольшее значение отношения трехзначного числа к сумме его цифр — Pascal(Паскаль)

uses crt;
var i,s:word;
    mx:real;
begin
clrscr;
mx:=1;
for i:=100 to 999 do
 begin
  s:=(i div 100) +(i div 10 mod 10)+(i mod 10);
  if i/s>mx then mx:=i/s;
 end;
write('Максимальное отношение =',mx:0:2);
readln
end.