Длинная арифметика

[morgan97]

Всем привет.
Встретилась такая задача: Число считается совершенным,если состоит из цифр 3 или 7. Отыскать максимальное такое число в диапазоне от 1 до n.
Я ее сделал.

var
  rez,i,j,k,l,n,chet:longint;
  p,v,t,f:string;
  flag:boolean;
begin
  readln(n);
  str(n,p);
  for i:=1 to n do begin
    chet:=0;
    str(i,v);
    for  j:=1 to length(v) do
      if (v[j]='3') or (v[j]='7') then chet:=chet+1;
    if length(v)=chet then rez:=i;
  end;
  writeln('rez: ',rez);
end.

Но как видно она только до диапазона longint. Помогите ее модифицировать так, чтобы она была до диапазона 10^100.
Заранее спасибо.