Построить матрицу заданного вида

const n=6;
var c: array [1..n, 1..n] of real;
i, j : integer;
l,k,m,d,r : boolean;
begin
  for i:=1 to n do
  for j:=1 to n do 
  begin
    l:=((j>=2) and (j<=5) and ((i=1) or (i=6))) or
    ((i>=2) and (i<=5) and ((j=1) or (j=6)));
    if l then c[i, j]:=0
    else
    k:=((j=1) and (i=1) and (i=6));
    if k then c[i,j]:=1
    else
    m:=((j=2) and (j=3) and ((i>=2) and (i<=5)));
    if m then c[i,j]:=2
    else
    d:=((j=6) and (i=1) and (i=6));
    if k then c[i,j]:=n
    else
    r:=((j=3) and (j=4) and ((i>=2) and (i<=5)));
    if r then c[i,j]:=n-1;
  end;
  begin
    writeln (' матрица а ');
    for i:=1 to 6 do 
    begin
      for j:=1 to 6 do 
      write (c[i,j]:7:1);
      writeln;
    end;
  end;
end.

var i, j: byte;
    a: array[1..6, 1..6] of byte;
begin
for j := 1 to 6 do
  begin
    for i := 1 to 6 do
      begin
        a[i, j] := ord(((i + j) mod 5 = 2) or
          ((i > 1) and (j > 1) and (i < 6) and (j < 6))) * i;
        write(a[i, j]:3)
      end;
    writeln
  end;
readln
end.

        a[i, j] := ord(((i mod 5 = 1) and (j mod 5 = 1)) or
          ((i > 1) and (j > 1) and (i < 6) and (j < 6))) * i;