Ошибка в диапазонах

[Андрей Коршов]

Подскажите почему когда я ставлю премен "а" диапазон екстендент то выдает ошибку об’ясните почему:

uses crt;
var a:integer{extended} ;
    d,i,j,h:integer;
    p:string;
    f,g:text;
    procedure input(var f:text;a:extended);
     begin
      assign (f,'input.txt');
      rewrite(f);
      close(f);
      reset(f);
       begin
        read(f,a);
       end;
      close(f);
    end;
    procedure output (var g:text;a:extended );
    begin
      assign (g,'output.txt');
      rewrite(g);
       begin
        write(f, a);
       end;
      close(g);
      end;
begin
 clrscr;
writeln('vvedit znahena');
readln(a);
if (a>=1) and (a<=exp(1000*ln(10))) then
begin
input(f,a);
end;
d:=0;
str(a,p);
for i:=1  to length (p) do
 begin
  for j:=i+1 to length (p) do
   begin
    if p[i]=p[j] then
     begin
      d:=d+1 ;
     end;
  end;
 end;
 h:=length (p)-d;
 output(f,h);
 writeln (h);
 readln;
end.

[Sciv]

А ошибку мы сами угадать должны? У меня вот ничего не выдало, нормально откомпилировалось и сработало. Может, все дело в числе, которое вводите?