Пример объявления и использования объекта — Pascal(Паскаль)

program myobj;
type
   TPerson = object
      Name:string[20];
      Address:string[40];
   end;
   TStudent = object (TPerson)
      Group:integer;
   end;
var
   Student:TStudent;
begin
   writeln('Введите фамилию, адресс, номер групп и нажмите <Enter>');
   write('Фамилия ->');
   readln(Student.Name);
   write('Адрес ->');
   readln(Student.Address);
   write('Номер группы ->');
   readln(Student.Group);
   with Student do
      begin
        writeln('Фамилия:',Name);
        writeln('Адрес:  ',Address);
        writeln('Группа: ',Group);
      end;
end.