Удаление элемента из списка

const
  n = 2;
 
type
  abonent = record
    fam: string[128];
    rajon: string[128];
    adrs: string[128];
    tel: string[128];
    datzakl: string[128];
    nomdogora: string[128];
    oplata: string[128];
    lastdat: string[128];
  end;
 
var
  a: array [1..n] of abonent;
  i: integer;
  s: string[128];
  
begin
  for i := 1 to n do
    with a[i] do
    begin
      write('Введите фамилию абонента: ');
      readln(fam);
      write('Введите район: ');
      readln(rajon);
      write('Введите адрес: ');
      readln(adrs);
      write('Введите телефонный номер: ');
      readln(tel);
      write('Введите дату заключения договора: ');
      readln(datzakl);
      write('Введите номер договора: ');
      readln(nomdogora);
      write('Введите оплату установки: ');
      readln(oplata);
      write('Введите дату последнего платежа: ');
      readln(lastdat);
    end;
  write('Введите район абонента: ');
  readln(s);
  for i := 1 to n do
    if a[i].rajon = s then
      writeln('Абонент найден:', ' фамилия абонента - ', a[i].fam, ' район абонента - ', a[i].rajon);
end.

AbonentList := New List<abonent>;

   var a := New abonent;
   a.fam := 'Кукуев';
   a.rajon := 'Центральный';
   ....
   AbonentList.Add(a);