Задача с кольцевым списком

[JAUG]

Задается кольцевой список из n элементов (n=const). Удалить элементы,встречающиеся наибольшее число раз.
Написал код:

Type Pint=^intr;
     intr=record
       a:integer;
       next:Pint;
     end;
Procedure NtCreat(Var Hed:Pint);  //процедура создания элемента списка
Var C,B:Pint;
    a:integer;
begin
  New(C);
  for var i:=1 to 10 do C^.a:=Random(100);
  if hed=nil then
    begin
      hed:=c;
      hed^.next:=Hed;
    end      else
    begin
      b:=hed;
      while b^.next<>hed do
        b:=b^.next;
      c^.next:=Hed;
      b^.next:=c;
    end;
end;
 
Procedure View(Var Hed:Pint);  // процедура просмотра всего списка
Var C,S:Pint;
    i:integer;
begin
  c:=Hed; 
  S:=nil;
    for i:=1 to 10 do
    begin
    Write(C^.a,'  ');
    c:=C^.next; 
    end;
end;
 
Procedure Delete(Var Hed:Pint);  // процедура удаления повторяющихся элементов
Var C,S:Pint;
    i:integer;
    j:integer;
    realmax:^intr;
begin
  c:=Hed;    
  S:=nil;
  realmax:=C;
  for i:=1 to 10 do
  begin
  if C>realmax then realmax:=C;
  C:=C^.next;
  end;
  writeln(reallymax);
end; 

Var Spisok:Pint;
    F:boolean;i:integer;
Begin
  Randomize;
  Spisok:=nil;
  Writeln('Исходный список');
  for i:=1 to 10 do NtCreat(Spisok);
  View(Spisok);
  writeln;
  Delete(Spisok);
end.

Выдает ошибку компиляции в процедуре Delete: Операция > не применима к типу ^intr. Как сравниваются два числа в таком кольцевом списке? И помогите,пожалуйста,дорешить задачу,решить нужно уже сегодня. Спасибо.

[Ezhik Kihze]

Сравнивать не адреса (указатели), а то, что по ним находится. Потрудитесь прочитать хоть одну главу из книги по паскалю.

[JAUG]

Сообщение от Ezhik Kihze

Сравнивать не адреса (указатели), а то, что по ним находится. Потрудитесь прочитать хоть одну главу из книги по паскалю.

Я ж потому сюда и обращаюсь, потому что не могу понять, и прошу помощи разобраться

[Ezhik Kihze]

Что вы не можете понять? Открываем ЛЮБУЮ книгу по паскалю. Открываем главу УКАЗАТЕЛИ (или как-то так), ЧИТАЕМ как в паскале получить то, на что указывает указатель (подсказка: надо поставить всего один значок) и ставим этот значок куда надо.

[Stilet]

Как сравниваются два числа в таком кольцевом списке?

Просто знаком "равно". Кстати а почему проход по списку именно так сделано?
Почему цикл FOR?

[phomm]

Сообщение от Ezhik Kihze

Что вы не можете понять? Открываем ЛЮБУЮ книгу по паскалю. Открываем главу УКАЗАТЕЛИ (или как-то так), ЧИТАЕМ как в паскале получить то, на что указывает указатель (подсказка: надо поставить всего один значок) и ставим этот значок куда надо.

Товарищ либо не сам писал код, либо просто забуксовал в работе, т.к. если он писал код сам то он использует способы работы с указателями нормально.

Суть проблемы:

if C>realmax then realmax:=C;

тут сравнение указателей (оно недопустимо в дельфи кроме = и <> )
а надо

if C^>realmax^ then realmax^:=C^;

а тут сравнение чисел , лежащих по этим указателям.

[Serge_Bliznykov]

Сообщение от phomm

а надо

if C^>realmax^ then realmax^:=C^;

а тут сравнение чисел , лежащих по этим указателям.

Извините, коллега, Вы ошибаетесь немного.
Такой код, скорее всего, даже не скомпилируется.
Ибо в указателе ссылка на структуру (==запись, ==record)
а сравнивать нужно числовые значения поля a
тогда уже:

Var C,S:Pint;
    i:integer;
    j:integer;
    realmax:Pint;
begin
  realmax:=C;
...
  if C^.a > realmax^.a then realmax:=C;
....

но вообще-то, использование цикла от 1 до 10 для прохода по списку в корне дискредитирует саму идёю использования связнного списка - проходить по списку нужно от головы и до конца списка. Цикл for здесь не к месту!!

[phomm]

Да, извиняюсь, в заблуждение ввёл Type Pint что сразу ассоциируется с указателем на инт. Ну а тогда крышки не нужны будут, дельфи умеет расчехлять ситуацию, что берётся поле у структуры через указатель на эту структуру.
Ну а про замену цикла на while полностью поддерживаю.