Создать объект-Таблица

program Project1;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  System.SysUtils;
     type
     s=^spis;
     spis=record
       inf:integer;
       next:s;
 
 
     end;
       list=object
 
         t:s;
         constructor init;
         procedure add(i:integer);
         procedure outlist;
         destructor done;
 
       end;
 
       list1=object(list)
         constructor init;
         procedure remove(m:integer);
         destructor done;
       end;
       table= object(list1)
         m:1..10;
         x:array[1..10] of s;
         constructor init(p:integer);
         procedure add(y,z:integer);
         procedure remove(y,z:integer);
         procedure outtable;
         destructor done;
 
       end;
       constructor list.init;
       begin
  t:=nil;
       end;
       procedure list.add(i: Integer);
       var v:s;
       begin
         if t=nil then
         begin
           new(t);
           t^.next:=nil;
           t^.inf:=i;
         end
         else
         begin
           new(v);
           v^.next:=t;
           t:=v;
           t^.inf:=i;
 
         end;
         end;
         procedure list.outlist;
         var v:s;
         begin
           v:=t;
           while v<>nil do do
           begin
             writeln(v^.inf);
           end;
         end;
 
      destructor list.done;
      var U:s;
      begin
      u:=t;
      while u<>nil do do
      begin
        U:=u^.next;
        dispose(t);
        t:=u;
 
      end;
      end;
      constructor list.init;
      begin
        inherited init;
 
      end;
      procedure list1.remove(m: Integer);
      var
      u,v:s;
      i:integer;
      begin
     u:=t;
     i:=1;
     if m=1 then
     begin
       t:=t^.next;
       dispose(u);
       exit;
       end
       else
       while (u<>nil)  and i<m do
       begin
       v:=u;
       u:=u^.next;
       i:=i+1;
 
     end;
     if i=m and u<>nil then then
     begin
       v^.next=u^.next;
       dispose(u);
     end;
      end;
 
      destructor list1.done;
      begin
      inherited done;
 
      end;
      constructor table.init(p: Integer);
    i:integer;
      begin
      m:=p;
      inherited init;
      for i=1 to m do
        x[i]:=t ;
 
      end;
      procedure table.add(y: Integer; z: Integer);
      begin
         t:=x[y];
         list.add(z);
         x[y] :=t;
      end;
      procedure table.remove(y: Integer; z: Integer);
      begin
      t:=x[y];
      inherited remove(z)
      end;
      procedure table.outtable;
      var i:integer;
      begin
      for i: := 1 to m do
        begin
          t:=x[i];
          list.outlist;
        end;
      end;
         destructor table.done;
         var i:integer;
         begin
         for i:=1 to m do
           begin
             t:=x[i];
             inherited done;
           end;
 
         end;
         var
         n,j,k,m,i,n1,k1:integer;
         spisok1,spisok2:list;
         spisok3:list1;
         table1:table;
         begin
         readln(n,k);
         j:=1;
         spisok1.init;
         spisok2.init;
         spisok3.init;
         while d<=n do
         begin
           spisok1.add(j);
           spisok2.add(j*j);
           spisok3.add(j*j*j);
           j:=j+1;
         end;
         spisok1.outlist;
         spisok2.outlist;
         spisok3.outlist;
         spisok3.remove(k);
         spisok3.outlist;
         readln;
         writeln('input n<=10');
         readln(n);
         writeln('input m');
         readln(m);
         table1.init(n);
         for i := 1 to n do
             for J := 1 to m do
               table1.add(i),j);
               table1.outtable;
               writeln('input n1,k1');
               readln(n1,k1);
               table1.remove(n1,k1);
               table.outtalbe;
               spisok1.done;
               spisok2.done;
               spisok3.done;
               readln;
 
 
end.

type
     TReg=class
       Private
       FFam,FCity,FOrg:string;
       next:TReg;
    constructor  addnew(fam,city,org:string);
 
end;