das sieht für mich alles richtig aus, lies nochmal meinen letzten Post.
4 Zeilen, 4 Quadrate 4 Punkte ...
Die Punkte Deiner roten Quadrate werden ja ignoriert, wenn der nächste gefunden X/Y Wert außerhalb Deines Quadrates gemalt wird überlappen sich die Quadrate gegf. was aber
IMHO richtig ist.
einen Fehler gibt es noch, es muss so heißen
wert:= ABS((farbe1 and clred)-(farbe2 and clred));