[Ghost]

Сформировать, эт пожалуйста:

uses
  crt;

const
  n = 6;
  k = n * n div 2;

var
  a: array [1..n, 1..n] of byte;
  b: array [1..k] of byte;
  i, j, l, m, r: byte;
  p: boolean;

begin
  clrscr;
  randomize;

  for i := 1 to n do
    for j := 1 to n do
      a[i, j] := 0;

  for i := 1 to k do begin
    repeat
      p := true;
      b[i] := random (99) + 1;
      for j := 1 to pred (i) do
        p := p and (b[j] <> b[i]);
    until p;
    for l := 1 to 2 do begin
      repeat
        r := random(n) + 1;
        m := random(n) + 1;
      until a[r, m] = 0;
      a[r, m] := b[i];
    end;
  end;

  for i := 1 to n do begin
    for j := 1 to n do write (a[i, j]: 3);
    writeln;
  end;
  readkey;
end.

А вот с выводом "звездочками" объясни поподробней...