Введите с клавиатуры одномерный числовой массив из 9 частей. Сверните его

program zz1;
var y:array[1..9] of integer;
x:array[1..3,1..3] of integer;
i,j,k:integer;
begin
for k:=1 to 9 do //вводим демять чисел в одномерный массив с клавиатуры
read (y[k]);
i:=1; //задаем исходный номер строчки матрицы
j:=1; //задаем исходный номер столбца матрицы
for k:=1 to 9 do
begin
x[i,j]:=y[k]; //записываем число из одномерного массива в матрицу
inc(j);
if j mod 4 =0 then begin j:=1; inc(i);end; //если выходим за пределы матрицы возвращаемся к началу на новейшую строчку
end;
for i:=1 to 3 do //выводим полученную матрицу
begin
for j:=1 to 3 do
write(x[i,j]:5);
writeln;
end;
end.