построить матрицу, как на картинке

Просьба помочь, хотя бы с чего начать её заполнять, я считаю что можно диагоналями заполнять...

K:=1;
For i:=1 to N do
 begin
  for j:=i to N do
   begin
    x[i,j]:=K+j-i;
    x[j,i]:=K+j-i;
   end;
 end;
 

вроде так

спасип Yevgeny, тока знаки поменял

uses crt;
var k,i,j,n:integer;
    x:array[1..10,1..10] of integer;
        begin
          readln(n);
          k:=1;
          for i:=1 to n do
          for j:=1 to n do
                begin
                  x[i,j]:=k-j+i;
                  x[j,i]:=k-j+i;
                end;
          for i:=1 to n do
          begin
          writeln;
          for j:=1 to n do write(x[i,j],'   ');
          end;
          readkey;
        end.

Feagor
Ну, если тебя устраивает проход по половине элементов матрицы неоднократно, то можно конечно и так...