наибольшее количество делителей в отрезке, типовая задачка, но неработает Опции

[kr3v3tkus]

задачка стандартная - Составить программу поиска на интервале [a ;b] числа К, имеющего наибольшее количество делителей, 1< a < b <10000. (Само число и 1 включаются в число делителей).
Посмотрел в факе, но там не совсем то, а то что сам написал не работает, укажите где ошибка плизъ

Код

program lol;  
var a,b,s,n,i,z,x,na4alo:integer;
flag:boolean;  
begin  
writeln('vvesti a i b');  
readln(a,b);  
writeln;  
s:=1;  
z:=0;  
na4alo:=a;  
if ((a>1)and(a<b))and(b<10000) then
    begin
    flag:=true;
    while a<=b do
      begin
        begin
        for i:=na4alo to a do
        if a mod i=0 then s:=s+1;
        end;
        begin
        if z<s then
        begin
          z:=s;
          x:=i;
        end;
        end;
      s:=1;
      inc(a);
      end;
    end;
  if flag=true then writeln('y 4isla ',z,' samoe bolshee kol-vo deliteley - ',x) else writeln('nepraviln1e argymenti');  
readln;  
end.  

Сообщение отредактировано: kr3v3tkus - 22.12.2005 21:44