Помогите пожалуйста решить в Паскале. Заполнить произвольный массив размером N x N (N

Const
  nn=10;
var
  i,j,n:integer;
begin
  Write(Введите число строк в массиве (2..9): );
  Read(n);
  if (n9) then writeln(Неверное значение)
  else
    for i:=1 to n do
    begin
      if (i mod 2)0 then for j:=1 to n do Write(j)
      else for j:=n downto 1 do Write(j);
      Writeln
    end
end.

Тестовое решение:
Введите число строк в массиве (2..9): 5
12345
54321
12345
54321
12345