Nur nebenbei: Schleifen mit einer festen Anzahl von Durchläufen sollte man immer mit einer for Schleife und nicht mit einer while Schleife programmieren. Damit wäre dir dann vielleicht noch eher aufgefallen, dass du in der schleife 5 mal genau dasselbe machst:
Delphi-Quellcode:
for k:=1 to 5 do
a[i][j]:=2;