program Project1;{$APPTYPE CONSOLE}usesSysUtils;Const              //定义常量author='who';perpertys='what';PI=3.1415926;vararea:Real;      //定义变量i:Integer;beginWriteln(author+''+perpertys);     //调用常量area:=  PI*3*3 ;                 //调用变量Writeln(area);i:=10;while(i>0)  do               //while循环beginWriteln(i);i:=i-1;end;for i:=0 to 10 do          //for循环beginWriteln(i);end;if(i>0) and (i<>10) then       //if then elsebeginWriteln(i);end;elsebeginWriteln(i+'i小于0')    ;end;//exit语句的功能：退出当前代码块//halt语句的功能：终止程序的执行Readln;end.// 程序结构、
//           unit unit1{单元名}
//           interface {接口部分}
//           uses{引用部分}
//           type    {类型区段}
//              private
//                      {私有成员}
//              public
//                     {公共成员}
//              end;
//              var{变量定义区}
//                {定义成员变量}
//                implementation{实现部分}
//                {$R *.dfm}
//                ....
//                end.//字符串处理函数
{LowerCase（const S:string):string;UpperCase(const s:string):string;CompareStr(const s1,s2:string):Integer;  大于返回大于0的数，小于返回小于0，等于返回等于0 区分大小写CompareText(const s1,s2:string):Integer;    不区分大小写AppendStr（var Dest：string;const s:string）//合并字符串concat(s1,s2...sn:string) :string  合并多个字符串Pos（substr:stirng;s:string）:Integer;  字符串查找，返回位置 ，如果不存在返回0length（s：string）:Integer   求字符串长度Copy（S;Index,count）:string  字符串截取Delete（s;index,count）  删除字符串中索引位置Inset（source；String；var s:string;index:Integer）  字符串source插入到字符串的s中index后面
}{数字和字符串的转换inttostrfloattostrval用于将字符串转换为数值数据strtointstrtofloatinttoHex（value:Integer;Digits:Integer）:string;    10进制装换为16进制}{Ascii转换字符chr（x：Byte):Char;}{格式化函数Format(Const Format:string;Const Args:Array of Const)}