Глюк с массивами Опции

[Zorg]

Народ чё за глюк какой-то  в проге: надо вывести сумму каждой строки массива, а в результате суммы чё-то путаются суммы верные но порядок не верный...
Текст проги:
program mag;
uses CRT;
const
strok=10;
stolb=strok;
var
A:array [1..strok,1..stolb] of byte;
K:array [1..strok] of byte;
I,J,S,F:byte;
begin
randomize;
ClrScr;
textcolor(white);
for I:=1 to Strok do
begin
K[I]:=0;
writeln;
for J:=1 to Stolb do
begin
A[I,J]:=random(9);
write(A[I,J]:4);
K[I]:=K[I]+A[I,J];
end;
writeln;
end;
writeln;
for I:=1 to Strok do
writeln('Summa ',I,' stroki ',K[I]);
end.