Имитация загрузки

uses crt;
var     i:byte;
        z:string;
begin
  writeln('Начать инициализацию запуска программы? Y/n');
  read(z);
  if z='y' then begin
     clrscr;
     write('====================');
     for i := 1 to 100 do
     begin
       if (i mod 5) = 0 then
       begin
         gotoxy(i div 5,1);
         write('>');
       end;
       gotoxy(21,1);
       write(' [',i,'%] ');
       delay(random(50));
     end;
  end;
  writeln('Запуск завершен')
end.