Delphi. Списки.

[armchair]

Дан список L, элементы которого являются целыми числами. Если первый и третий элементы списка равны, то удалить из списка все элементы с четными индексами.

unit lab6_2un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type List=^node;
     node=record
       info: integer;
       b: boolean;
       next: List;
       i:integer;
     end;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    function form(n: integer): List;
    procedure print(Name: string; Lab: TLabel; L: List);
    procedure compare(L: List);
    function Del(var L: List): boolean;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  L: List;
  k: integer;

implementation

{$R *.dfm}
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var code: integer;
begin
  if key=#13 then begin
    val(Edit1.Text, k, code);
    if code=0 then begin
      L:=form(k);
      compare(L);
      print('L:', Label1, L);
      while Del(L) do;
      print('Lnew:', label2, L);
    end
    else begin
      Edit1.Text:='';
      Edit1.SetFocus;
    end;
  end;
end;

function TForm1.form(n: integer): List;
var T, Head, Tail: List;
    i: integer;
begin
  Head:=nil;
  randomize;
  for i:=1 to n do begin
    New(T);
    T^.info:=round(100*random)-10;
    T^.b:=false;
    T^.next:=nil;
    if Head=nil then Head:=T
    else Tail^.next:=T;
    Tail:=T;
  end;
  form:=Head;
end;

procedure TForm1.print(Name: string; Lab: TLabel; L: List);
begin
  Lab.Caption:=Name+#13;
  while L<>nil do begin
    Lab.Caption:=Lab.Caption+IntToStr(L^.info);
    if L^.b then Lab.Caption:=Lab.Caption+'  (+)';
    Lab.Caption:=Lab.Caption+#13;
    L:=L^.next;
  end;
end;

procedure TForm1.compare(L: List);
var P: List;
begin
  while L^.next<>nil do begin
    P:=L^.next;
    while P<>nil do  begin
      if L^.info=P^.next^.next^.info then P^.b:=true;
      P:=P^.next;
    end;
    L:=L^.next;
  end;
end;

function TForm1.Del(var L: List): boolean;
var P: List;
begin
  if L<>nil then
    if L^.b  then begin
      P:=L; l:=L^.next;
      dispose(P);
      Del:=true;
    end
    else Del:=Del(L^.next)
  else Del:=false;
end;

end.

Нужно вывести два списка: один исходный, другой преобразованный.Это мой код выполняет. Но как оформить нужное мне условие не знаю.Буду признателен за помощь.

[Stilet]

как оформить нужное мне условие

Самое универсальное решение - сделать функцию:

function ItemByNum(Head:List;i:integer):List;
begin
 Result:=Head;
 while (Result<>nil) and (i>0) do begin Result:=Result^.next; dec(i);end;
end;

Соответственно

Var q,w:List;
...
q:=ItemByNum(L,1);w:=ItemByNum(L,3);
if (q<>nil) and (w<>nil) and (q^.info=w^.info) then удалить из списка все элементы

Идея подходит?

[armchair]

Да, благодарю за помощь)