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

Const
  nn=10;
var
  i,j,n:integer;
begin
  Write('Введите число строк в массиве (2..9): ');
  Read(n);
  if (nlt;2) or (ngt;9) then writeln('Неверное значение')
  else
    for i:=1 to n do
    begin
      if (i mod 2)lt;gt;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