Agradecería opinión sobre este código
 

Ante todo muchas gracias por sus generosos consejos por otro lado ya correjí el problema era un error de semántica pero como les digo mis queridos colegas ya lo solucione aquí esta mi otro formato mejorado que en su libro "programación en lenguajes estructurados" de la maestra María Asunción Criadero Clavero muestra como se debe escribir código legible y fácil de entender aquí esta el ejemplo:

Código Delphi [-]
* Nombre del programa: MediaTest *)

  (* Constantes *)
const
  PESO1 = 50;
  PESO2 = 20;
  PESO3 = 30;

  (* Variables *)
var
  NOTA1, NOTA2, NOTA3:Integer;
  MEDIA:Real;
begin
  // Obtener datos

  Write('Introdusca la primera nota: ');
  Readln(NOTA1);
  Write('Introdusca la segunda nota: ');
  Readln(NOTA2);
  Write('Introdusca la tercera nota: ');
  Readln(NOTA3);

  // Fin de obtener datos

  // Calcular Media

  Media:= NOTA1 * PESO1 / 100 + NOTA2 * PESO2 / 100 + NOTA3 * PESO3 / 100;

  // Fin Calcular Media

  // Mostrar Resultados

    // Imprimir cabecera

    Write('Notas del test Peso (%)');
    Writeln;

    // Fin Impimir cabecera

    // Imprimir datos de entrada

    Write(NOTA1, + PESO1);
    Writeln;
    Write(NOTA2, + PESO2);
    Writeln;
    Write(NOTA3, + PESO3);

    // Fin Imprimir datos de entrada

    // Imprimir media

    Writeln;
    Write('Media ponderada: ---' ,MEDIA);
    readln
    // Fin Imprimir media

  // Fin Mostrar Resultados

que les parece .....

A mi me parece correcto.
Un apunte, más de apariencia visual de los resultados que otra cosa. Puedes utilizar la función Format, para mejorar la salida de datos.

Por ejemplo, en lugar de esta línea:

Código Delphi [-]
Write(NOTA1, + PESO1);

Puedes poner esta:

Código Delphi [-]
Write(Format('Nota:%d  con peso:%d%%', [NOTA1, PESO1]));

Y verás que hay diferencia.

El primer %d significa que en esa posición va 1 número entero (el primer parámetro NOTA1). El segundo %d significa el segundo parámetro (PESO1) y el %% es para pintar el character de porcentaje(%).
Pruebalo y verás el cambio.

Aquí hay varios ejemplos de cómo se utiliza.

Algo similar puedes hacer con el resultado.