D:\ObjectNou\3-1>manager.exe
寝ています
食べてます

program Manager;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  UnitNingen in 'UnitNingen.pas';

var
  Ningen : TNingen;
begin
  try
    Ningen := TNingen.Create('牛尾', 169);
    try
      Ningen.Taberu;
      Ningen.Neru;
    finally
      Ningen.Free;
    end;
  except on E:exception do
    Writeln(E.message);
  end;

end.

unit UnitNingen;

interface

type
  TNingen = class(TObject)
  private
    { Private 宣言 }
    FName : string;
    FShintyou: integer;
  public
    { Public 宣言 }
    constructor Create(const Name:string; const Shintyou:integer);
    procedure Taberu;
    procedure Neru;
  end;

implementation

{ TNingen }

constructor TNingen.Create(const Name:string; const Shintyou:integer);
begin
  FName := Name;
  FShintyou := Shintyou;
end;

procedure TNingen.Neru;
begin
   Writeln('寝ています');
end;

procedure TNingen.Taberu;
begin
   Writeln('食べてます');
end;

end.