С клавиатуры вводятся 2 натуральных числа а и б. Найти число на отрезке [a, b], у которого количество делителей максимально — Pascal(Паскаль)

var
  maxd, i, ch, d, t, a, b: integer;
begin
  readln(a, b);
  maxd:= 0;
  ch:= 0;
  for i:= a to b do
    begin
      d:= 0;
      for t:= 1 to i do
        begin
          if (i mod t = 0) then
            begin
              inc(d);
            end;
     			
			if (d > maxd) then
            begin
              ch:= i;
              maxd:=d;
            end;

        end;
    end;
  write(ch);
  readln;
end.