помогите оптимизировать программу. Не проходит тест, из-за большого количества используемой памяти.

program skaitli;
var coun,coun1:longint;
     res:cardinal;
     num1,num2,teco:shortint;
     re:string;
     f:text;
     len:shortint;
begin
  coun1:=9; //номер последовательности(счетчик).
  res:=9;     //результат
  assign(f,'skaitli.in');
  reset(f);
  read(f,re);  //вытаскиваем порядковый номер из файла
  val(re,coun);  //вытаскиваем порядковый номер из строки
  close(f);
  teco:=0;
  if coun>9 then begin //числа от одного до 9 сразу являются результатом
  repeat
    inc(res);
    inc(coun1);
    repeat
      inc(teco); 
      repeat
        str(res,re);
        len:=length(re); //десятки
        val(re[teco],num1);
        val(re[teco+1],num2);
        if num1>num2 then begin //вытаскиваем из одного числа две рядом стоящие цифры и сравниваем (в зависимости 
          inc(res);                     //от кол-ва десятков в числе, проводится соответствующее кол-во операций).
        end;
      until num1<=num2;
    until len-1=teco;
    teco:=0;  //обнуляем счетчик
  until coun1=coun;
  end
  else res:=coun;
  assign(f,'skaitli.out');
  rewrite(f);
  write(f,res);
  close(f);
end.

program skaitli;
var coun,coun1:longint;
    res:cardinal;
    re:string;
    f:text;
    len:shortint;
begin
  coun1:=9;
  res:=9;
  assign(f,'skaitli.in');
  reset(f);
  read(f,re);
  val(re,coun);
  close(f);
  if coun>9 then begin
  repeat
    inc(res);
    inc(coun1);
    str(res,re);
    len:=length(re);
    repeat
      dec(len);
      if re[len]>re[len+1] then begin
        inc(res);
        str(res,re);
        len:=length(re);
      end;
    until len=1;
  until coun1=coun;
  end
  else res:=coun;
  assign(f,'skaitli.out');
  rewrite(f);
  write(f,res);
  close(f);
end.

var number,countNumber, selectNumber:longint;
    didgit,oldDidgit:integer;
    flagNumber:boolean;
    f:text;
begin
 assign(f,'scaitli.in');
 reset(f);
 read(f,countNumber);
 close(f);
 while (countNumber>0) do
  begin
   inc(number);
   flagNumber:=false;
   oldDidgit:=-1;
   selectNumber:=number;
   while (selectNumber>0) do
    begin
     didgit:=selectNumber mod 10;
     selectNumber:=selectNumber div 10;
     if oldDidgit=-1 then
      begin
       oldDidgit:=didgit;
       continue;
      end;
     if didgit<=oldDidgit then
      oldDidgit:=didgit
     else
      begin
       flagNumber:=false;
       break;
      end;
     flagNumber:=true;
    end;
   if flagNumber then dec(countNumber);
  end;
 assign(f,'scaitli.out');
 rewrite(f);
 write(f,number);
 close(f);
end.