Заполнение массива в определённом порядке.

[Иварунька]

Привет, снова я))
Не забывайте надо вставать, день сам по седе г**ном не станет))
И теперь когда я привлёк ваше внимание.. бугага))
Помогите советом как заполнить матрицу которая видна на картинке в приложении.

program massiv2;
    uses crt;
const
  num = 10;

var

  i, j:   integer;
  wrk: integer;
  ms: array[1..num, 1..num] of integer;

begin
  for i := 1 to num do
    for j := 1 to num do
      ms[i, j] := 0;
  wrk := 0;

  for i := 2 to 4 do
  begin

      for j := i + 1 to num - i do
      begin
        wrk := wrk + 1;
        ms[i, j] := wrk;

  end;
  for i := 1 to num do
  begin
    writeln;
    for j := 1 to num do
      write( ms[i, j]:4)
  end;
  end;
end.

это пока всё что соорудил
0000000000
0012345600
0000000000
0000000000
0000000000
000000...

[BDA]

program massiv2;

uses
  crt;

const
  num = 10;

var
  
  i, j:   integer;
  wrk: integer;
  ms: array[1..num, 1..num] of integer;

begin
  for i := 1 to num do
    for j := 1 to num do
      ms[i, j] := 0;
  wrk := 0;
  i := 2;
  while (i + 1 <= num - i) do
  begin
    if odd(i) then
      for j := num - i downto i + 1 do 
      begin
        wrk := wrk + 1;
        ms[i, j] := wrk;
      end
    else
      for j := i + 1 to num - i do
      begin
        wrk := wrk + 1;
        ms[i, j] := wrk;  
      end;
    inc(i);
  end;
  for i := 1 to num do
  begin
    writeln;
    for j := 1 to num do
      write( ms[i, j]:4)
  end;
  readln;
end.

[Иварунька]

Большое пасибо!!!