двумерные массивы

[Antonio_getscool]

ребята помогите с задачкой Из массива A[1..N,1..N] сформируйте массив B[1..N*N], "развернув" его по строкам

[IT-man]

k:=0;
for i:=1 to n do
for j:=1 to n do begin
k:=k+1;
b[k]:=a[i,j];
end;

[Antonio_getscool]

спасибо большое друг