Нужно написать деструктор

[s-t-r-i-k-e-r]

{-------------------------------------------------------}
constructor TPeople.init(AName: string; AnAge: integer);
begin
  age := AnAge;
  name := AName;
end;

{-------------------------------------------------------}
constructor TFootballer.init(AName: string; AnAge: integer;team, position: string;akoef_gk,akoef_df,akoef_md,akoef_f: byte);
var
  p: TPosition;
  i: integer;
  Aprice:word;
begin
  inherited init(AName, AnAge);
  for p := low(Tposition) to high(TPosition) do
    if s_position[p] = position then begin
      code_position := p;
    end;
  for i := 1 to max_teams do
    if s_team[i] = team then begin
      code_team := i;
     end;
   {k := Ak; }
   koef_gk := Akoef_gk;
   koef_df := Akoef_df;
   koef_md := Akoef_md;
   koef_f := Akoef_f;
   price:=raschet;
end;
{------------------------------------------------------------}

procedure init_footballers(const filename: string);

  function _toint(s: string): integer;
  var _result, _error: integer;
  begin
    val(s, _result, _error);
    _toint := _result;
  end;

  function _copy(var s: string; count: integer): string;
  begin
    _copy := copy(s, 1, pred(count));
    delete(s, 1, count);
  end;

var
  f: text;
  s: string;
  f_n, f_t, f_p: string; f_a,f_ccc, f_cgk, f_cdf, f_cmd, f_cf: integer;
begin
  assign(f, filename); reset(f);

  count_footballers := 0;
  while not seekeof(f) do begin
    inc(count_footballers);
    readln(f, s);

    f_n := _copy(s, pos(' ', s));
    f_a := _toint(_copy(s, pos(' ', s)));
    f_t := _copy(s, pos(' ', s));
    f_p := _copy(s, pos(' ', s));
    f_cgk := _toint(_copy(s, pos(' ', s)));
    f_cdf := _toint(_copy(s, pos(' ', s)));
    f_cmd := _toint(_copy(s, pos(' ', s)));
    f_cf := _toint(s);

    new(
      footb_array[count_footballers],
      init(f_n, f_a, f_t, f_p,f_cgk, f_cdf, f_cmd, f_cf)
    );
  end;
  close(f);
end;

Чтобы

new(footb_array[count_footballers],
      init(f_n, f_a, f_t, f_p,f_cgk, f_cdf, f_cmd, f_cf));

как я понимаю
уничтожался и можно было запустить init_fo ещё раз
Tfoot - потомок Tple

[s-t-r-i-k-e-r]

Помогите пожалуйста, здесь должно быть несложно.
Я что-то никак. Уже целый день за компьютером.
А это весомая часть программы, из-за нее многое рушится.
Если можно побыстрее что-нибудь ответьте

[s-t-r-i-k-e-r]

Описания:

TPeople = object
    age: integer;
    name: string;
    constructor init(AName: string; AnAge: integer);
  end;

  PTFootballer = ^TFootballer;

  PTReferee = ^TReferee;
  PTteam= ^TTeam;
  TFootballer = object(TPeople)
    code_position: TPosition;
    code_team: integer;
    k,koef_gk,koef_df,koef_md,koef_f: byte;
    price:word;
    acting: TPosition;
    procedure print;
    constructor init(AName: string; AnAge: integer;team, position: string;akoef_gk,akoef_df,akoef_md,akoef_f: byte);
    {procedure print_info(i:integer); }
   function Raschet:word;
    end;

var
  count_footballersk: integer;
  footb_array:array[1..max_footballers] of PTFootballer;

  players,i: integer;
  namets:array[1..20] of string;
  squad,squad2: array[1 .. 20] of PTFootballer;