Описать и проверить процедуру или функцию, которая проверяет, есть ли в списке L хотя бы два одинаковых элемента

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
list=^zveno;
  zveno= record
           elem:string;
           sled:list;
         end;
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var x,y: list;
      i: integer;
      k:boolean;
function foo (y1:list):boolean;
var   p1,p2:string; q,next:List;
 begin
     foo:=False;
     q:=y1^.sled;
     p1:=y1^.elem;
     p2:=q^.elem;
     while q<>Nil do
   begin
     if p1 = p2 then
       begin
         foo:=True;
         break;
       end else
     y1:=q;
     q:=q^.sled;
     p1:=y1^.elem;
     p2:=q^.elem;
  end;
  end;
begin
  y:=nil;
 for i:=1 to Memo1.Lines.Count do begin
   new(x);
   x^.elem:=Memo1.Lines[i-1];
   x^.sled:=y;
   y:=x;
 end;
 k:=foo(y);
 if (k) then
   Edit1.Text:='Есть'
 else
   Edit1.Text:='Нет';
end;
 
end.

y1:=q;
q:=q^.l;
p1:=y1^.a;
p2:=y1^.a;

unit Unit3;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  data=string;
  link=^item;
  item=record
    a:data;
    l:link
  end;
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var x,y: link;
      i: integer;
      k:boolean;
function foo (y1:link):boolean;
var q:link;
 begin
     foo:=False;
     while y1^.l <> nil do begin
     q:=y1^.l;
     while q <> nil do
      if y1^.a = q^.a then begin
      foo:=true;
      break;
      end
      else q:=q^.l;
      y1:=y1^.l
     end;
 end;
begin
  y:=nil;
 for i:=1 to Memo1.Lines.Count do begin
   new(x);
   x^.a:=Memo1.Lines[i-1];
   x^.l:=y;
   y:=x;
 end;
 k:=foo(y);
 if (k) then
   Edit1.Text:='Есть'
 else
   Edit1.Text:='Нет';
end;
 
end.