Объектно-ориентированное программирование

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.