Type
TValor=record
V_Ne:integer;
V_No:integer;
End;
TNOTAS=array [1..N,1..15] of TValor;
Var
NOTAS:TNOTAS;