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 *)
const
PESO1 = 50;
PESO2 = 20;
PESO3 = 30;
var
NOTA1, NOTA2, NOTA3:Integer;
MEDIA:Real;
begin
Write('Introdusca la primera nota: ');
Readln(NOTA1);
Write('Introdusca la segunda nota: ');
Readln(NOTA2);
Write('Introdusca la tercera nota: ');
Readln(NOTA3);
Media:= NOTA1 * PESO1 / 100 + NOTA2 * PESO2 / 100 + NOTA3 * PESO3 / 100;
Write('Notas del test Peso (%)');
Writeln;
Write(NOTA1, + PESO1);
Writeln;
Write(NOTA2, + PESO2);
Writeln;
Write(NOTA3, + PESO3);
Writeln;
Write('Media ponderada: ---' ,MEDIA);
readln
que les parece .....