Hat nichts mit derLösung deines momentanen Problems zu tun, aber wenn du die Größe der Arrays nicht zur Laufzeit verändern willst, dann benutze
Kxa,Kya,Kxb,Kyb :Array[0..9] of integer;
das ist weniger Schreibarbeit und sieht einfach besser aus.
Es gibt nur sehr wenige Probleme auf dieser Welt, die sich nicht mit einigen hundert Gramm Sprengstoff lösen ließen.