Из одномерного массива [xi] i=1,64 получить действительную квадратную матрицу 8*8,элементами которой являются числа х1…..х64 — Pascal(Паскаль)

uses crt;
var i,j,c,k:integer;
m:array[1..64]of integer;
m2:array[1..8,1..8]of integer;
 
begin
 clrscr;
 for i:=1 to 64 do m[i]:=i;
 
 k:=1; //направление обхода 1-вниз 0-вверх
 c:=1;
 for j:=1 to 8 do
 begin
  if k=1 then for i:=1 to 8 do
  begin
   m2[i,j]:=m[c];
   inc(c);
  end else for i:=8 downto 1 do
  begin
   m2[i,j]:=m[c];
   inc(c);
  end;
 end;
 
 for i:=1 to 8 do
 begin
  for j:=1 to 8 do write(m2[i,j]:3);
  writeln;
 end;
 readln;
end.

uses crt;
var i,j,c,k:integer;
m:array[1..64]of integer;
m2:array[1..8,1..8]of integer;
 
begin
 clrscr;в этом месте выдает ошибку...''
 for i:=1 to 64 do m[i]:=i;
 
 k:=1; //направление обхода 1-вниз 0-вверх
 c:=1;
 for j:=1 to 8 do
 begin
  if k=1 then for i:=1 to 8 do
  begin
   m2[i,j]:=m[c];
   inc(c);
  end else for i:=8 downto 1 do
  begin
   m2[i,j]:=m[c];
   inc(c);
  end;
 end;
 
 for i:=1 to 8 do
 begin
  for j:=1 to 8 do write(m2[i,j]:3);
  writeln;
 end;
 readln;
end.