Pascal/Turbo Pascal - urgente ayuda con un programa

{Algo como esto es}

program arreglos;

  uses

     crt;

  type

     unarray = array[1..9] of char;

  var

    array1, array2 : unarray;

  procedure cargaarreglo1; {Rellenamos el arreglo 1}

  var

    d : integer;

  begin

      for d := 1 to 9 do

      array1[d] := chr(64 + d);

  end;

  procedure invierte(ar : unarray);  {invertimos los datos}

  var

     i, en : integer;

  begin

      i := 1;

      for en := 9 downto 1 do

      begin

      array2[i] := ar[en];

      i := i + 1;

      end;

  end;

  begin

     clrscr;

     cargaarreglo1;

     invierte(array1);

     writeln(array1);  {presentamos los dos}

     writeln(array2);

     readln;

  end.

{Este procedimiento lee el array y lo presenta uno por uno cualquiera de los dos arrays }

procedure leerarray(aa : unarray);

var

    x : integer;

 begin

       for x := 1 to 9 do

       write('  ',aa[x]);

 end;

{Es esto lo que te preocupa pues ya esta si hay otra caso dime lo}