Задача на указатели Опции

[nblazhko]

Подскажите,а то я в этой теме не разобрался еще,вот задача:
type ssilka=^integer;
vector=array[1..100] of ssilka;
Считая, что все элементы вектора Х от nil ,создать консольное приложение, описывающее логическую функцию SAME(x),которая проверяет есть ли в векторе Х хотя бы две одинаковые ссылки.


Зарание спасибо

[klem4]

во первых добавь randomize, во вторых циклы не верно построены, нужно вот так:

i := 1;
  while i < count do begin
    j := i + 1;
    while (j <= count) and (DynamicArray^[i] <> DynamicArray^[j]) do
      inc(j);
    if j > count then
      inc(i)
    else begin
      writeln(' Concurrence!');
      break;
    end;
  end;