Hilfe für ein Delphi Sortierprogramm!!!!!!

[Scraffy]

ja habe ich schon aber es hat nihchts gebracht
Ich weiss jetzt wpran es liegt, wenn man oben bei den var arry 1..2 eingitb, ist es in der ersten zeile allerdings kann ich dann zu wnige Nmaen eingeben hat jemand hierfür eine Lösung?!