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

uses crt; 
var
  del:Array [0..100] of integer;
  del1:Array [0..100]of string;
  
  i: integer;
 
 
begin
  clrscr;
  for i:=0 to 100 do begin
  del[i]:=i; Str(del[i], del1[i]);end;
  
write('Сканирую ['); for i:=0 to 100 do begin write(del1[i]);write(']');delay(25);delete(del1[i],1,2);end;
readln;
end.

uses crt; 
var i: integer;
begin
  clrscr;
  for i:=0 to 100 do
  begin
    write('Сканирую [',i,'%]');
    delay(50);
    GoToXY(1,WhereY);
  end;
  Writeln;
  readln;
end.

uses crt;
var i: integer;
begin
  for i:=0 to 100 do
  begin
    write('Сканирую [',i,'%]');
    delay(50);
    GoToXY(1,WhereY);
  end;
end.

uses
  Crt;
var
  i : Integer;
begin
  Write('Сканирую [');
  for i := 0 to 100 do
    begin
      Write(i:3, '%]');
      Delay(50);
      Write(#8#8#8#8#8);
    end;
  WriteLn;
end.

uses
  Crt;
var
  i : Integer;
begin
  Write('Сканирую память [   %]', #8#8);
  for i := 0 to 100 do
    begin
      Write(#8#8#8, i:3);
      Delay(50);
    end;
  WriteLn;
 
  Write('Сканирую загрузочный сектор [   %]', #8#8);
  for i := 0 to 100 do
    begin
      Write(#8#8#8, i:3);
      Delay(50);
    end;
  WriteLn;
 
  Write('Сканирую жёсткий диск [      %]', #8#8);
  for i := 0 to 10000 do
    begin
      Write(#8#8#8#8#8#8, i/100:6:2);
      Delay(10);
    end;
  WriteLn;
end.