Создать класс принтер и написать его реализацию

type TPrinter = class(TObject)
  public
    Year: Integer;
    Company: String;
    function Expluatation: integer;
end;
 
function TPrinter.Expluatation: Integer;
var r: Integer;
begin
  r:=CurrentYear - Year;
  write('Printer of ''' + Company + ''' was in use ' + Inttostr(r));
  Expluatation:=r;
end;

var p:TPrinter; begin p:=TPrinter.Create; p.Company:='Unknown'; p.Year:=2005; p.Expluatation; p.Destroy end;

type
  TMPrinter = class(TObject)
  public
    Year: integer;
    Company: shortstring;
    function GetExpl: integer;
    property Expl: integer read GetExpl;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
{ TMPrinter }
 
function TMPrinter.GetExpl: integer;
begin
  Result := CurrentYear-Year;
end;

type TPrinter = class(TObject)
  private
    FYear: Integer;
    FCompany: String read;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    function Expluatation: integer;
    procedure SaveToFile;
    property Year: Integer read FYear write FYear;
    property Company: String read FCompany write FCompany;
  end;
 
procedure TPrinter.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
end;
 
destructor TPrinter.Destroy;
begin
  inherited Destroy;
end;
 
function TPrinter.Expluatation: Integer;
begin
   Result := CurrentYear - FYear;
end;
procedure TPrinter.SaveToFile

uses
  SysUtils, Dialogs;
 
type
  TPrinter = class(TObject)
  private
    FYear: Integer;
    FCompany: String;
    FName: string;
  public
    constructor Create(AOwner: TComponent);
    destructor Destroy;
    function Expluatation: integer;
    procedure SaveToFile;
    property Year: Integer read FYear write FYear;
    property Company: String read FCompany write FCompany;
    property Name: string read FName write FName;
  end;
 
constructor TPrinter.Create(AOwner: TComponent);
begin
 
end;
 
destructor TPrinter.Destroy;
begin
 
end;
 
function TPrinter.Expluatation: Integer;
begin
   Result := CurrentYear - FYear;
end;
 
procedure TPrinter.SaveToFile;
var
  SD: TSaveDialog;
  F: TextFile;
begin
  try
    SD := TSaveDialog.Create(nil);
    if not SD.Execute then exit;
    AssignFile(F,SD.FileName);
    Rewrite(F);
    writeln(format('Принтер - %s',[FName]));
    writeln(format('Производитель - %s',[FCompany]));
    writeln(format('Год выпуска - %s',[FYear]));
    writeln(format('Срок службы - %d',[Expluatation]));
  finally
    FreeAndNil(SD);
    CloseFile(F);
  end;
end;