Введите с клавиатуры одномерный числовой массив из 9 элементов. Сверните его в матрицу размером 3x3, разместив первую тройку

Uses crt;
Var A:array[1..3,1..3] of integer; B:array[1..9] of integer;
i,j,k:integer;
Begin
ClrScr; j:=1; k:=1;
For i:=1 to 9 do Readln(B[i]);
For i:=1 to 9 do
 Begin
  A[j,k]:=B[i]; inc(k);
  If k=4 then
   Begin
    inc(j); k:=1;
   End;
 End;
For i:=1 to 3 do
 Begin
  For j:=1 to 3 do Write(A[i,j]:4);
  Writeln;
 End;
Readln;
End.