Дан квадратный числовой массив размером NxN... (Delphi)

[Radius100]

Дан квадратный числовой массив размером NxN. Заполнить его числами от 1 до N2 по указанной траектории:


Вот он тут идет вправо вниз, а надо влево вниз, как перевернуть все подскажите "да чайник"
StringGrid1 5x5
А вот что в Button1

var i,j,n,k:integer;
a:array[1..5,1..5]of integer;
begin
k:=1;
write('введите размерность матрицы:');writeln;
 
 for i:=1 to (5+1) div 2 do begin
   for j:=i to 5-i+1 do begin
   a[i,j]:=k;
   Inc(k);
   end;
   for j:=i+1 to 5-i+1 do begin
   a[j,5-i+1]:=k;
   Inc(k);
  end;
  for j:=5-i downto i do begin
   a[5-i+1,j]:=k;
   Inc(k);
   end;
  for j:=5-i downto i+1 do begin
  a[j,i]:=k;
  Inc(k);
  end;
 end;
  for i:=1 to 5 do begin
   for j:=1 to 5 do write(a[i,j]:5);
   writeln
   end;
   readln;
   end.

___________
1. для учебных задач предназначен раздел форума "Помощь студентам"

2. КРОССПОСТИНГ (создание одинаковых тем и сообщений) запрещён правилами форума!

3. Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Не забывайте об этом!

Модератор.