Var
  A:array[1..N] of integer;
  i:= integer;
  
...
randomize;
for i:= 1 to N do 
  A[i] := random;                        // несовпадение типов!
  
...  
for i:= 1 to N do 
  A[i] := random(10);                    // похоже, потерян randomize
  
...
for i:= 1 to N do 
begin
  randomize;
  A[i] := random(10);                    // лишние randomize  - рекомендуется посмотреть, что будет
end;  

...
{ Пытаемся случайным образом заполнить массив неповторяющимися значениями.
Так делать не надо !!!! }
randomize;
for i:= 1 to N do 
begin
  A[random(N)] := i;                     // Диапазон возвращаемых random(N) значений - от 0 до N-1
                                         // не совпадает с диапазоном индексов от 1 до N у массива
                                         // array[1..N] of integer независимо от  значения N
end;  

...
i := randomize(10);                      // что-то не так :-)