Hola!

Hoy estaba aburrido y me puse a programar un programa para ordenar un arreglo con datos al azar que el programa mismo le carga. Diganme que les parece y si hay algo que pueda mejorarle.

 
 Program inserci;
    uses
       crt;
    const
       N = 15;
    var
       OTRO : string;
       HACER : boolean;
       I, J, D, CANT, ACTUAL : integer;
       A : array [0..N] of integer;
    begin
    clrscr;
    HACER := true;
    While HACER = true do
    begin
       write('Ingrese la cantidad de numeros a ordenar ');
       readln(cant);
       randomize;
       A[0]:= -32768;
       for i := 1 to CANT do
          begin
          a[i] := random(300);
          writeln('a [',i:2,'] = ', a[i]:3);
          end;
       I:= 1;
       while (A [I] < A [I+1]) and (I < CANT) do
          I:= I+1;
       if I = CANT then
          break;
       For I:= 2 to CANT do
          begin
          J:= I-1;
          ACTUAL:= A[I];
          While A [J] > ACTUAL do
             J:= J-1;
          for D:=I  downto J+1 do
             A[D]:= A[D-1];
          A[J+1]:= ACTUAL;
          end;
 
       writeln;
       for I:= 1 to CANT do
          writeln('A',I,' = ',A[I]);
    readkey;
    clrscr;
    write ('Quiere ordenar otro arreglo?');
    readln(OTRO);
    if (OTRO = 's') or (OTRO = 'y') then
       HACER:= true
    else
       HACER:= false;
    readkey;
    end;
    End.
 

Perdon si no es el sitio adecuado del foro.