Объектно-ориентированное программирование PascalABC - удаление из списка

[Gohych]

Помогите сделать так,чтобы моя программа удаляла заданное число N из списка,который находится в файле
Модуль для создания списка:

unit ModulSpisok;

interface

type
  Tlist = class
    info: Integer;
    next: Tlist;
    First, plus, min: Tlist;
    constructor Create;
    function IsEmpty: boolean;
    procedure Tobegin;
    function Active: Integer;
    function IsEnd: boolean;
    procedure Step;
    procedure Insert(a: Integer);
    procedure Delete;
  end;

implementation

constructor Tlist.Create;
begin
  next := nil;
  First := nil;
  min := nil;
  plus := First;
end;

function Tlist.IsEmpty: boolean;
begin
  IsEmpty := (First = nil);
end;

procedure Tlist.Tobegin;
begin
  min := nil;
  plus := First;
end;

function Tlist.Active: Integer;
begin
  Active := plus.info;
end;

function Tlist.IsEnd: boolean;
begin
  IsEnd := (plus = nil);
end;

procedure Tlist.Step;
begin
  min := plus;
  plus := plus.next;
end;

procedure Tlist.Insert(a: Integer);
var
  q: Tlist;
begin
  q := new Tlist;
  q.info := a;
  if min = nil then
    First := q
  else
    min.next := q;
  q.next := plus;
  plus := q;
end;

procedure Tlist.Delete;
var
  q: Tlist;
begin
  q := plus;
  plus := plus.next;
  if min = nil then 
    First := plus
  else 
    min.next := plus;
end;

begin
  Writeln('Использован модуль ModulSpisok');
end.

а вот сама программа

uses
  ModulSpisok;

var
  Info, n, s: integer;
  A, C: TList;
  F, F1: Text;

begin
  writeln('Введите число ,которое нужно удалить из спиcка'); 
  readln(n); 
  assign(F, 'A1.txt');
  assign(F1, 'out');
  reset(F);
  Rewrite(F1);
  A := new TList;
  while not eof(F) do
  begin
    read(F, Info);
    A.Insert(Info);
    A.Step;
  end; 
  A.Tobegin;
  if A.plus.info = n then
    A.Delete else A.step;
  while (not A.IsEnd) do
  begin
    write(A.Active);
    write(' ');
    A.Step;
  end; 
  Close(F);
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор