Мерцание при выводе текста

[kostghost]

Вывожу процесс выполнения процедуры примерно так:

For j:=1 to n do
  Begin
     ***
     clrscr;
     Writeln('Выполнено: ', j);
  End;

при этом заметно колоссальное мерцание, текст прочитать почти невозможно.
Чем можно заменить процедуру clrscr в этом случае для более
быстрого стирания/вывода?
Помню с модулем graph можно было пользоваться чем-то вроде двойной буферизации.

[Step_UA]

ClrScr;
GotoXY(1,13);
write('Выполнено: 0');
for j:=1 to n do 
  begin
   ...
   GotoXY(13,13);
   write(j)
  end;

[Serge_Bliznykov]

только, если длина выводимого текста может (вдруг) оказаться меньше, чем выведенный ранее текст, то он не будет затёрт (ну, например, вывод чисел от 1000 до 1 в обратном порядке..).

в таких случаях я бы стирал текст, забивая предыдущий вывод пустой строкой.
примерно так:

for j:=1000 downto 1 do 
  begin
   ...
   GotoXY(13,13);
   write('     ');
   GotoXY(13,13);
   write(j);
   Delay(30); {а это я добавил, чтобы числа не менялись как "чумачедчие" :)}
  end;

[kostghost]

Step_UA, спасибо за совет.
Serge_Bliznykov, дополнение очень дельное, у меня как раз 2 цикла, так что считается выполнение текущей процедуры и общий процент выполнения так, что кол-во символов в первой постоянно меняются с двухзначного (0%) до четырехзначного (100%) и обратно. Поставлю стирание во внешний цикл.
Так сделал

uses crt;
var i,j:integer;
Begin
GotoXY(1,1);
write('Выполнено: 0');
GotoXY(1,2);
write('Общее выполнение: 0');
 For i:=1 to 80 do
  begin

   For j:=1 to 30 do
    begin
       GotoXY(12,1);
       write(j);
    end;

    GotoXY(19,2);
    write(i,'  ');
  end;
  Readln;
End.