Pascal/Turbo Pascal - Ayuda Con este Ejercicio de pascal ,porfavor

{Con los datos que me dejas mira esto a ver si te sirve}

program profe;

uses

   crt;

const

   calasif : integer = 0;

   turno   : char = 'A';

   carghor : real = 0;

   asistencia : integer = 0;

   segsoc : integer = 4;

   noctur : real = 10;

   nombre : string = ' ';

   edad   : integer = 0;

   fecha  : string = ' ';

   clasi  : integer = 0;

  procedure entradadatos;

  begin

      clrscr;

      write('Entre Clasificacion Profesor : ');readln(calasif);

      write('Turno                        : ');readln(turno);

      write('Carga De horas               : ');readln(carghor);

      write('Asistencia                   : ');readln(asistencia);

      write('Nombre Y Apellido            : ');readln(nombre);

      write('Edad                         : ');readln(edad);

      write('Fecha D:M:A                  : ');readln(fecha);

      clasi := calasif;

      write('Clasificacion                : ',calasif);

      clrscr;

  end;

  procedure presdatosprofe;

  begin

      writeln('Datos Profesor');

      writeln;

      writeln('Nombre = ',nombre);

      writeln('Edad   = ',edad);

      writeln('Fecha  = ',fecha);

      writeln('Clasificacion = ',calasif);

      writeln;

  end;

  procedure presentapago;

  var

     tot : real;

     ds : real;

  begin

     tot := 0.0;

     writeln('Recivo De Pago');

     writeln;

     writeln('Clasificacion     = ',calasif);

     writeln('Turno             = ',turno);

     writeln('Carga Horas       = ',carghor:0:2);

     writeln('Asistencias       = ',asistencia);

     tot := tot + (carghor + asistencia ) +

     ((carghor + asistencia  * noctur) / 100);

     writeln('Total             = ',tot:0:2);

     ds := ((tot *  segsoc) / 100);

     writeln('Descuentos        = ',ds :0:2);

     writeln('Total A Cobrar    = ',(tot - ds):0:2);

     writeln;

  end;

  begin

      clrscr;

      entradadatos;

      presdatosprofe;

      presentapago;

      readkey;

  end.