Решить в паскале. заполнить произвольный массив размером n x n (n< 10) по следующему правилу: 12345 54321 12345 54321 12345

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