Lösungswert mit Array vergleichen, Differenz anzeigen

[Sudrow]

Gutan Abend, das hier ist mein Quelltext

Delphi-Quellcode:

 var notenpunkte : array[0..30] of array [0..1] of Integer =  (
(300,300),(301,318),(319,336),(337,354),(355,372),(373,390),(391,408),(409,426),(427,444),(445,462),
(463,480),(481,498),(499,516),(517,534),(535,552),(553,570),(571,588),(589,606),(607,624),(625,642),
(643,660),(661,678),(679,696),(697,714),(715,732),(733,750),(751,768),(769,786),(787,804),(805,822),(823,900) );

Wenn ich nun einen Wert bekomme, z.b 551 würde ich gern das im Array gelesen wird wo die 551 liegt und er eweils sagt wie viele zu vorherigen Zahl fehlen, bzw zur nächsten.
Also im Beispiel das er dann sagt 1 Punkt zur nächsten, 16 Punkte zur schlechteren.

Ich hoffe ihr versteht mich.

Wie könnt ich das nun auslesen und anzeigen lassen?

mfg Sudrow