Pascal/Turbo Pascal - Ayuda por favor

{A ver si esto sirve}

program sueldo;

 uses

   crt;

   const

    esfera : array[1..8] of string[13] = (

    '0000111110000',

    '0011000001100',

    '0100000000010',

    '1000000000001',

    '1111111111111',

    '010000|000010',

    '001100|001100',

    '000011|110000');

  var

    sueldobruto, sueldoneto : real;

    tantop : real;

  procedure datosueldo;

  begin

      clrscr;

      writeln('  calculo sueldo neto y el sueldo bruto');

      writeln;

      write('   Entre sueldo bruto : ');

      readln(sueldobruto);

      if sueldobruto > 10000 then

      tantop := (sueldobruto * 5) / 100

    else

      tantop := (sueldobruto * 3) / 100;

      sueldoneto := sueldobruto - tantop;

      writeln;

      writeln('   El sueldo Bruto es : ',sueldobruto:0:2);

      writeln('   El sueldo Neto es  : ',sueldoneto:0:2);

      writeln('   El Descuento Es    : ',tantop:0:2);

      readln;

  end;

   procedure volumensegmento;

   var

      radio : real;

      alto : real;

      resut : real;

      x, y : integer;

   begin

      clrscr;

      gotoxy(2,1);write('calcule el volumen de un segmento esferico');

      for y := 1 to 8 do

        for x := 1 to 13 do

        begin

          if esfera[y,x] = '1' then

          begin

          gotoxy(10 + x,2 + y);write('.');

          end;

          if esfera[y,x] = '|' then

          begin

          gotoxy(10 + x,2 + y);write('|');

          end;

        end;

      gotoxy(12 + 14,7);write('<---Radio');

      gotoxy(13,10 + 1);write(' Altura');

      writeln;

      writeln;

      write('   Entre El Radio : ');

      readln(radio);

      write('   Entre Altura   : ');

      readln(alto);

      resut := (((1 / 3) * pi) * (alto * alto) * (3 * radio - alto));

      clrscr;

      writeln('   El Radio Es   : ',radio:0:2);

      writeln('   El Alto  Es   : ',alto:0:2);

      writeln('   El Volumen Es : ',resut:0:2,' cmü');

   end;

   procedure interesimple;

   var

      capital : real;

      interes : real;

      ayos : integer;

      tatopor : real;

      intayo : real;

   begin

       clrscr;

       writeln('  interes simple que produce un capital en vareos años');

       writeln;

       write('   Entre El Capital : ');

       readln(capital);

       write('   Entre Tanto Por Ciento % : ');

       readln(tatopor);

       write('   Entre A¤os : ');

       readln(ayos);

       intayo := tatopor * 1 / 100;

       interes := (capital * intayo * ayos);

       clrscr;

       writeln('  Capital       = ',capital:0:2,' euros');

       writeln('  Tanto Por %   = ',tatopor:0:2,' euros');

       writeln('  A¤os          = ',ayos);

       writeln('  Interes Total = ',interes:0:2,' euros');

   end;

   begin

       clrscr;

       volumensegmento;

       readln;

   end.