Дан одномерный массив, сформировать из него двухмерный отсортированный змейкой: Начиная с правого нижнего угла вертикально. Pascal ABCВот код, только здесь выводится с левого угла, а мне нужно с правого:uses crt;var a:array [1....

Дан одномерный массив, сформировать из него двухмерный отсортированный змейкой: Начиная с правого нижнего угла вертикально. Pascal ABC Вот код, только здесь выводится с левого угла, а мне нужно с правого: uses crt; var a:array [1..25] of integer;    ar:array [1..25,1..25] of integer; i,n,s,j,x:integer;b:real; L:boolean; begin      write('n=');      readln(n);      writeln('Заполните массив:');      For i:=1 to n do readln(a[i]);      For i:=1 to n do      For j:=i+1 to n do      If a[i]>a[j] then begin        x:=a[i];        a[i]:=a[j];        a[j]:=x;      end;      s:=1;      writeln('Отсортированный массив: ');      For i:=1 to n do write(a[i], ' ');      writeln;     b:=sqrt(n);      n:=round(b);      writeln('Двумерный массив: ');      for j:=1 to n do begin          for i:=1 to n do begin              ar[i,j]:=s;             if (j mod 2 = 0) and (i<>n) then dec(s)              else inc(s);          end;          s:=s+n-1;      end;      for i:=n downto 1 do begin         for j:=1 to n do write(ar[i,j]);          writeln;      end; end. Помогите пожалуйста