[angvelem]

У тебя масса недочётов:
1. Это не класс

Код:

type
  Tbase=class
private
  constructor Create;
public
  fSurname:ShortString;
  fName:ShortString;
  procedure Vvod;
  procedure Vyvod;
  end;

измени примерно так:

Код:

type
  Tbase = class
  private
    fSurname : String;
    fName : String;
    procedure SetName(Value : String);
    procedure SetSurName(Value : String);
  public
    constructor Create;

    property Name : String read fName write SetName;
    property SurName : String read fSurName write SetSurName;
  end;

implementation

constructor Tbase.Create;
begin
  fSurname : ='';
  fName : ='';
end;

procedure Tbase.SetName(Value : String);
begin
  if Value <> fName then
    fName := Value;
end;

procedure Tbase.SetSurName(Value : String);
begin
  if Value <> fSurName then
    fSurName := Value;
end;