type

一、用于自定义类型

example:

type 
    list=array[1..10] of longint;
    intt=integer;
    rec=record
    x:intt;
    a:list;
end;


然后下面定义变量等可以使用：
var
     b:rec;
     t,j:intt;

二、也用于定义Pascal类

example:

//定义一个Rectangle类，它有两个整数类型的数据成员 - 长度和宽度，
//一些成员函数来处理这些数据成员和一个程序来绘制矩形。

type
   Rectangle = class
   private
      length, width: integer;
   public
      constructor create(l, w: integer);
      procedure setlength(l: integer);
      function getlength(): integer;
      procedure setwidth(w: integer);
      function getwidth(): integer;
      procedure draw;
end;