Подскажите пожалуйста, как дорешать задачку!

[Mashutik25]

Пожалуйста помогите дорешать задачку!!!

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Label3: TLabel;
Edit2: TEdit;
Label4: TLabel;
Edit3: TEdit;
Label5: TLabel;
Edit4: TEdit;
Label6: TLabel;
Edit5: TEdit;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Button1: TButton;
Button2: TButton;
Label7: TLabel;
Edit6: TEdit;
Label8: TLabel;
Edit7: TEdit;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Type
Ttovar=class
name:string;
kod:integer;
data:integer;
proizvoditel:string;
gost:integer;
constructor create (n,p:string;k,d,g:integer);
function info:string;virtual;
end;
Tprodtovar=class(Ttovar)
srokgodnosti:integer;
constructor create (n,p:string;k,d,g,s:integer);
function info:string;override;
end;
Tpromtovar=class(Ttovar)
material:string;
constructor create (n,p,m:string;k,d,g:integer);
function info:string;override;
end;
var
Form1: TForm1;
number:array[1..10] of Ttovar;
n:integer=0;

implementation
constructor Ttovar.create (n,p:string;k,d,g:integer);
{$R *.dfm}
begin
name:=n;
proizvoditel:=p;
kod:=k;
data:=d;
gost:=g;
end;
constructor Tprodtovar.create (n,p:string;k,d,g,s:integer);
begin
inherited create(n,p,k,d,g);
srokgodnosti:=s;
end;
constructor Tpromtovar.create (n,p,m:string;k,d,g:integer);
begin
inherited create(n,p,k,d,g);
material:=m;
end;
function Ttovar.info:string;
begin
result:='name'+' '+'proizvoditel'+' '+'код'+IntToStr(kod)+' '+'дата'+IntToStr
(data)+'гост'+' '+IntToStr(gost);
end;
function Tprodtovar.info:string;
begin
result:='name'+' '+'proizvoditel'+' '+'код'+IntToStr(kod)+' '+'дата'+IntToStr
(data)+'гост'+' '+IntToStr(gost)+' '+'срок годности'+' '+IntToStr(srokgodnosti);
end;
function Tpromtovar.info:string;
begin
result:='name'+' '+'proizvoditel'+' '+'код'+IntToStr(kod)+' '+'дата'+IntToStr
(data)+'гост'+' '+IntToStr(gost)+' '+'material';
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
if n<10 then
begin
n:=n+1;
if Radiobutton1.Checked
then
number[n]:=Tprodtovar.create(Edit1.Text,Edit 4.Text,StrToInt(Edit2.Text),StrToIn t(Edit3.Text),StrToInt(Edit5.Text), StrToInt(Edit6.Text))
else
number[n]:=Tpromtovar.Create(Edit1.Text,Edit 4.Text,Edit7.Text,StrToInt(Edit3.Te xt),StrToInt(Edit5.Text),StrToInt(E dit6.Text));
Edit1.Text:=' ';Edit2.Text:=' ';Edit3.Text:=' ';Edit4.Text:=' ';Edit5.Text:=' ';Edit6.Text:=' ';Edit7.Text:=' ';
Edit1.SetFocus;
end
else ShowMessage('Список заполнен');
end;

end;


end;

end.