Помогите пожалуйста решить в Паскале. Заполнить произвольный массив размером 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