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

Const
nn=10;
var
i,j,n:integer;
begin
Write('Введите число строк в массиве (2..9): ');
Read(n);
if (n<2) or (n>9) 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