program Project2; {$APPTYPE CONSOLE} uses SysUtils; //定义一个结构类型 type Tpeople = record Name :string; Age:Integer; Sex:string; end; var people:Tpeople; begin with people do begin Name := '小明'; Age := 25; Sex := '男'; end; Writeln('Name:',people.Name); Writeln('Age:',people.Age); Writeln('Sex:',people.Sex); Readln; end.