Массив,прогу написал,сделайте её меньше

[enot27]

Уважаемые программисты,посмотрите програмку:дан массив 5х5,заполненный числами от 1 до 25 по порядку...нужно написать прогу,которая выводила бы массив в виде "пружинки от угла" т.е так
1 2 6 7 15
3 5 8 14 16
4 9 13 17 22
10 12 18 21 23
11 19 20 24 25
саму прогу написал,вот только сильно длинно,препод сказал что это можно выполнить с помощью 3-х циклов..Посмотрите)))

program gg2;
uses crt;
var a: array [1..5,1..5] of integer;
    k,i,j,t,z: integer;
begin
  clrscr;
  z:=1;
  t:=5;
  k:=1;
  for i:=1 to 5 do
    for j:=1 to 5 do
      begin
   if (j+i=2)
   then a[i,j]:=k;
      end;
  k:=k+1;
  for i:=1 to 5 do
    begin
      for j:=1 to 5 do
   begin
     if (j+i=3)
     then a[i,j]:=k;
   end;
      k:=k+1;
    end;
  k:=k-3;
  for i:=1 to 5 do
    begin
      for j:=1 to 5 do
   begin
     if (i+j=4)
     then a[j,i]:=k
   end;
      k:=k+1;
    end;
   k:=k-2;
   for i:=1 to 5 do
     begin
       for j:=1 to 5 do
    begin
      if (i+j=5)
      then a[i,j]:=k;
    end;
       k:=k+1;
     end;
   k:=k-1;
   for i:= 1 to 5 do
     begin
       for j:= 1 to 5 do
    begin
      if (j+i=6)
      then a[j,i]:=k;
    end;
       k:=k+1;
     end;
   k:=k-1;
   for i:=1 to 5 do
     begin
       for j:=1 to 5 do
    begin
      if (j+i=7)
      then a[i,j]:=k;
    end;
       k:=k+1;
     end;
   k:=k-2;
   for i:=1 to 5 do
     begin
       for j:=1 to 5 do
    begin
      if (j+i=8)
      then a[j,i]:=k;
    end;
       k:=k+1;
     end;
   k:=k-3;
   for i:=1 to 5 do
     begin
       for j:=1 to 5 do
    begin
      if (j+i=9)
      then a[i,j]:=k;
    end;
       k:=k+1;
     end;
   k:=k-4;
   for i:=1 to 5 do
     begin
      for j:=1 to 5 do
   begin
     if (j+i=10)
     then a[j,i]:=k
   end;
      k:=k+1;
    end;
 for i:=1 to 5 do
   begin
   for j:=1 to 5 do
 write(a[i,j]:3);
 writeln;
 end;
 readln;
 end.

Прога рабочая,только нужно её сократить))Подскажите кто может.....