массив с не повторяющимися элементами

[kalosha-stepa]

Надо дополнить цикл!!!
Нужно!!! Заполнить массив 5×5 случайным образом неповторяющимися числами от 0 до 24.

program z2;
Const n=5;
Type masInt=array [1..10,1..10] of integer;
var a:masInt; i,j: integer;


procedure Form (var a:masInt);
var i,j:integer;

begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(25)+1;
end;

procedure Print (a: masInt);
var i,j: integer;
begin
for i:=1 to n do begin
for j:=1 to n do write(a[i,j],' ');
writeln;
end;end;

Begin
Form(a);
Print(a);
End.

[Вадим Мошев]

Создайте множество, куда записывайте только что помещённый в матрицу элемент. Перед помещением элемента в матрицу проверяйте, находится ли он уже в множестве или нет. Если находится, то вновь генерируйте число и снова проверяйте на принадлежность тому множеству.

[Serge_Bliznykov]

так подойдёт -
сначала заполняем числами от 0 до 24 подряд, потом перемешиваем?

const N = 5;
const NN = N*N;
var
 i, j, k, buf:integer;
 mas: array [1..NN] of integer;
begin
 //заполнить от 0 до 24
 for i:=1 to NN do mas[i]:=i-1; 
 Randomize;

 //----------перемешать-------------
 for i:=1 to NN-1 do
  begin
   k:= Random(NN-i+1)+i;
   if k<>i then begin
     buf:=mas[i];
     mas[i]:=mas[k];
     mas[k]:=buf;
   end;
  end;
 //-------------вывести в массив 5x5-------------
 k:=1;
 for i:=1 to N do
   for j:=1 to N do  begin
     a[i,j] := mas[k];
     inc(k)
   end;
end;

p.s. взял пример кода ОТСЮДА и доработал для вас.
НЕ ПРОВЕРЯЛ!